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INTRODUCTION 


This publication complements the Systems 
Reference Library publication IBM_Systeir/ 
360, PL/I Su bset Ref er ence R anual, Form 
GC28-8202 (hereafter referred to as the 
Subset Reference Manual). It provides all 
information that is not part of the lan¬ 
guage specifications but required by the 
programmer to write programs in the PL/I 
Subset language and to have them compiled 
and executed in the DCS/TCS environment. 

Tnis publication is divided into four 
logical parts : 

Part I - provides all information regard¬ 
ing the DOS/TCS environment, PL/ 
I data file organization includ¬ 
ing the ENVIRONMENT attribute, 
linkage between PL/I and 
Assembler modules, and PL/I pro¬ 
gramming in the DOS/TOS 
environment. 

Part II - provides all information regard¬ 
ing storage requirements of pro¬ 
grams written in the PL/I.Subset 
language, and a description of 
the overlay facility. 

Part III - describes all listings and diag¬ 
nostic messages produced for PL/ 
I programs running under DOS/TOS 
control. 

Part IV - Appendix. Some of the individu¬ 
al appendixes provide informa¬ 
tion taken out of the corres¬ 
ponding sections to improve the 
readability, e.g., a list of all 
available I/O subroutines. The 
remaining appendixes furnish 
additional reference information 
the PL/I programmer might find 
useful. 

The last section of the Appendix lists 
the implementation-dependent restrictions 
to the PL/I Subset language as it is 
described in the Subset Reference Manual. 
The individual restrictions are listed in 
alphabetical crder. 

To free the programmer of the necessity 
of referring to other publications for 
additional information, this publication is 
made as self-supporting as possible by dup¬ 
licating some of the information given 
elsewhere. However,, should this publica¬ 
tion not give all the details the programm¬ 
er needs for solving his problem, these 
details can be found in the pertinent SRL 
publication. A list of all SRL publica¬ 
tions the programmer- may have to refer to 
is given belcw: 


IBM System/360 Disk Operating System,, 

System Programmer's Guide, 

Form GC24-5073 

IBM System/360 Operating System, PL/I 
Library Computational Subroutines,, 

Form GC28-6590 

IBM System/360 Principles cf Operation,, 

Term GA22-6821 

IEM System/360 Disk and Tape Operating Sys¬ 
tems, Concepts and Facilities,, 

Fcrm GC24-5030 

IEM System/360 Disk and Tape Operating Sys¬ 
tems, Utility Program; Specifications,, 

Fcrm GC24-3465 

IEM System/360 Disk Operating System, Sys¬ 
tem Control and System Service Pregrams,, 
Fcrm GC24-5036 

IEM System/360 Tape Operating System, Sys¬ 
tem Control and System Service Programs,, 
Fcrm GC24-3431 

IEM System/360 Disk Operating System, 
Supervisor and Input/Cutput Macros, 

Fcrm GC24-5037 

IEM System/360 Tape Operating System, 
Supervisor and Input/Output Macros, 

Fcrm GC24-3432 

IEM System/360 Disk Operating System, Data 
Management Concepts, Form GC24-3427 

IBM System/360 Tape Operating System,, Data 
Management Concepts, Form GC24-3430 

IEM System/360 Disk Operating System,, PL/I 
DASD Macros, Form GC24-5059 


Mini mum Requir emen ts fo r Co mpilation 

1. 16,384 (16K) bytes of core storage on 
one of the compatible models cf System/ 
360 (not Model 20, 44). The compiler 
itself requires 10K. Mere than 10K are 
required if SYSIPT, SYSLST,, and/or SYS- 
PCH are DASD files. This is a system 
generation option. 

2. a. Either one IEM 2311 Disk Storage 

Drive or one IBM 2314 Direct Access 
Storage Facility cr 
b. four IBM Magnetic Tape Drives of 
the series 2400. A 7-track tape 
may be used for SYSRES. The use of 
a 9-track tape fer SYSRES will 
improve the performance. The data 
conversion feature is required fer 
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7-track drives. Cne additional 
tape drive is required for compile- 
and-go operation. 

3. One card read/punch or one card reader 
and cne card punch. 

4. One printer. 

5. One IBM 1052 Printer-Keyboard (required 
for operator-to-system communication) . 

6. The optional supervisor feature Program 
Interrupt (PC). 

Note: Either one cr toth of the units 

listed under items 3 and 4 may be replaced 
by one additional magnetic tape drive per 
replaced unit. 

The speed of compilation is greatly 
reduced if (1) the source program contains 
more than 80 programmer-defined identi¬ 
fiers, and (2) a 16K system is used to com¬ 
pile a program greater than 16K. 

For determination of the required work- 
file space refer tc Workfile Re q uireme nt s 
in Appendix G of I BM System/360 Disk 
Opera t in g System , S ystem Generation and 
Maintenance, Form GC24-5033. 

Minimum Requir emen ts for Execution 

The executicn-tiire requirements depend on 
the requirements of the system and the 
object program. 


Additional machine features required for 
arithmetic, compare, and ccnversicn are 
listed in Figure 1. 

Note: At EXEC time all IJKSnn transients 

must be available in the ccre-image 
library. 

Maxi mum Configuratio n Su pp orted 

The following units and features are 
supported: 

1. All of the units and features specified 
for compilation. (Disk files are net 
supported for tape-resident systems.) 

2. All of the following devices: 

a. IEM 2540* 

b. IBM 1403 

c. IEM 1404 (for continuous forms 
only) 

d. IBM 1442N1 

e. IBM 1442N2 

f. IEM 1443 

g. IBM 2501 

h. IEM 2520E1 

i. IEM 2520B2 

j. IEM 2520B3 

k. IEM 1445 

l. IEM 2321 

3. Additional main storage up tc 16 mill¬ 
ion bytes. 

♦The Punch/Read Feed (FRF) special feature 
is not implemented by PL/I. 
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Figure 1. Additional Machine Feature for Arithmetic, Comparison, or Conversion 
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RUNNING PROGRAMS UNDER DOS/TOS CONTROL 


This section describes the compilation and 
execution of PL/I programs under control of 
the Disk and Tape Operating Systems. The 
pertinent terminology, control statements, 
and their formats are discussed when 
required. 


B as ic T er m in ol og y 

It is convenient to refer to each stage of 
program development by a particular name, 
because just the term program would be too 
general and, therefore, confusing. 


In program development, the programmer 
writes sets of source statements that may 
form a complete program or part thereof. A 
card deck containing one external procedure 
written in the FL/I Subset language is 
referred to as a source m od ul e. A source 
module is the unit that is processed during 
a compilation. The compilation results in 
one or two object mo du les. The first 
object module is produced by the PL/I com¬ 
piler for all of the file declarations,, if 
any,, contained in the source module. The 
second object module is produced for the 
source module. Object modules can be 
loaded by the DOS/TCS Linkage Editor pro¬ 
gram and then executed. An object module 
consists of standard ESD (External Symbol 
Dictionary), TXT (Text), RLD (Relocation 
Dictionary) cards, and one END card. 


Tc start the execution of a FL/I pro¬ 
gram, control must be transferred from the 
Disk or Tape Operating System to the object 
pregram. The external procedure to which 
control is transferred from the Job Control 
program must have the option MAIN. 


Some parts of the object program may not 
be required in storage throughout its 
execution. External procedures that are 
never active simultaneously may use the 
same storage area to save storage. Each 


part of the program that is in storage only 
for a fraction of the execution time is 
referred to as an overl ay. Using the MAIN 
procedure as an overlay is not permitted. 
Each overlay as well as that part of the 
program that resides in storage throughout 
the execution of the object program is 
referred to as a phase. A phase consists 
of one or more external procedures. For 
detailed information refer to the sections 
Overlay and The Li n kag e Editor Program . 


Some standard procedures such as PL/I 
built-in functions or conversion subrou¬ 
tines have been incorporated into the relo¬ 
catable library as library s ubroutines . 

Only the code required for calling these 
subroutines is compiled into the object 
module. The library subroutines themselves 
are incorporated into the appropriate 
phases by the autolink feature of the EOS/ 
TCS Linkage Editor program. 


Extra code is required to allow some 
housekeeping during the execution of a PL/I 
program. This code, which is referred tc 
as o ver h ea d, may either be generated in¬ 
line in an object module cr incorporated 
due tc an explicit library subroutine call* 


The relationship between the user's PL/I 
mainline program,, the FL/I control program , 
and the DOS/TOS system is shewn in Figure 
1A. 

Note; The FL/I control progra m is a set cf 
library routines in the relocatable library 
which are included into object programs at 
l,inkage-edit time and perform certain con¬ 
trol functions at execution time. 


Obje ct -T ime Storag e La y out 

The layout of main storage during execution 
of a PL/I program is shown in Figure IE. 
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SUPERVISOR 

Intercept’s Program Checks, Passes 
Control to PL/I Interrupt Handler 


PL/I 

MAINLINE 


Initialization (Prologue) 
GO TO External Name 

OPEN/CLOSE 
READ, WRITE, etc. 
END. (MAIN), STOP 


PL/I 

CONTROL PROGRAM 


Miscellaneous Subroutines 

Such as: 

I/O Transmitters 
Conversion Routines 
Built-in Functions 



• 

Initialization Routine 

• 

GO TO Routine 

(Return is to External Name) 

• 

OPEN/CLOSE Routines 
(Call $ Transients) 

• 

SIGNAL Routine Handles 
Exceptional Conditions and 

Issues Messages 

• 

STOP Routine Calls $ 

Transient for Automatic 

Closing of Files and EOJ 

• 

Interrupt Handler Usually 

Calls $ Transient 
(Return is Conditional) 

$ Transient Area 
(May Call )$B Transients) 


Figure 1A. PL/I Program Structure 
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Lower Storage 


Upper Storage 


Hardware Area 


Supervisor Transient Areas 

t : 


DTF-Appendages 



DTFs and Buffers 



Pl/I User Program Procedures 


LIOCS Modules 

DTF for SYSPRINT 

Logic Module for SYSPRINT 

PL/l Control Program 


PL/I Library Subroutines 


* 

Overlay Program Area (Optional) 

: J 


DSAs 



(Allocated only During Execution) 

1 S' 



Figure IE. Object-Time Storage Layout 


THE DISK AND TAPE O PERATING SYSTEMS 

The Disk and Tape Operating Systems (DOS/ 
TOS) are a group of processing programs 
with the control and service programs 
required to maintain continuous operation. 
They are self-contained systems and require 
a minimum of operator intervention. 


The processing programs consist of lan¬ 
guage translators and service programs. 

The group of processing programs can be 
expanded by adding user-written problem 
programs. 

The system control program — the frame 
work of EOS/TOS — consists of three 
components: 

• the Supervisor program, 


These components are used to load the 
system and to prepare and control the 
execution of all processing and problem 
programs within the system. 

The system service programs consist of 
the linkage Editor and the Librarian. 

These programs are used to bring compiled 
source programs into an executable.format 
and to maintain the libraries. 

Figure 2 shows a schematic representa¬ 
tion of the Disk and Tape Operating 
Systems. 

To make full use of DCS/TOS,, the user 
should be familiar with (1) the functions 
of the individual system components and (2) 
the interaction of these components. Users 
of the overlay feature should be thoroughly 
familiar with the DOS/TOS Linkage Editor 
program. Users of the label-processing 
facilities should be familiar with DOS/TOS 
data management concepts. This section 
briefly discusses those parts of the DOS/ 
TCS that are of interest to users of the 
PL/I Subset language. 


Disk/Tape Operating Systems 



Figure 2. Schematic Representation of the 
Disk and Tape Operating Systems 


Syst em C ont ro l Programs 

The Supervisor handles all hardware inter¬ 
rupts, causes I/O operations to be per¬ 
formed, and contains a fetch routine for 
fetching program phases from the core-image 


• the Job Control program, and 

• the Initial Program Loader (IPL). 


Running Programs Under DOS/TOS Control 9 










library. The Supervisor resides in storage 
throughout the execution of all IEM- 
supplied and user-written programs. 


The Job Control program provides jcb-to- 
jcb transition within DOS/TOS. It performs 
its functions between job steps and dees 
net reside in storage while a problem pro¬ 
gram is being executed. 

The IPL is of no interest to the PL/I 
programmer. 


Systern Ser vi ce P rogr am s 

The Linkage Editor links all relocatable 
object modules that are produced by the 
language translators, i.e., it assigns 
absolute addresses and resolves cross- 
references between different object modules 
(external symbols). The output of the Lin¬ 
kage Editor can be either immediately 
executed or incorporated into the core- 
image library. 


The Librarian is a group of programs 
used for maintaining the libraries and pro¬ 
viding printed and/or punched output from 
these libraries. The 3 libraries are: 

• the core-image library, 

• the relocatable library, and 

• the source-statement library. 


The core-image library contains object- 
program phases already processed by the 
Linkage Editor. These programs are ready 
for execution under control of the Supervi¬ 
sor. The core-image library contains, for 
instance, the system control and service 
programs themselves and the PL/I compiler. 


The relocatable library contains object 
modules produced by the language transla¬ 
tors. Object modules may he preceded by 
Linkage Editor control statements. The 
individual modules contained in the relo¬ 
catable library are used as input to the 
Linkage Editcr. Mcst cf the built-in func¬ 
tions of PL/I as well as service routines 
required for the execution cf PL/I object 
programs are contained in the relocatable 
library. 

The source statement library is not used 
by TH'e PL/I compiler or during object prc’ 1 "* 
gram executicr. 


Mul ti programming 

DCS and TCS permit the switching cf proces¬ 
sing between one or two foreground programs 
and one background program, in which case 
all programs reside in storage simul¬ 
taneously. This method increases the total 
throughput since some program may use the 
CPU while another program is waiting for 
input/output. If more than one program 
requires the CPU, the fcregrcund-1 program 
has the highest and the background program 
the lowest priority. The program(s) cf 
lower priority are dormant until the 
program(s) of higher pricrity start(s) 
waiting for a completion of input/output. 

The storage areas - referred tc as par- 
titions - assigned to each of the three 
programs are defined at system generation 
time and may be changed by the operator 
between job steps. 

The EOS/TOS PL/I compiler, the Linkage 
Editor, and the Librarian exclusively work 
in the background partition. DOS programs 
compiled by the DOS PL/I compiler can be 
executed in a forjsgroun d partition, pro- 
vided the supervi?o? , v!as generated with the 
option MP£=BJ F and a minimum of 10K of 
storage is assigned tc the partition. PL/I 
object programs may only be executed in 
batched-job mode, since the Linkage Editor 
is not available in a foreground jcb„ pro¬ 
grams to be run in a foreground partition 
must have been previously cataloged into 
the core-image library. 

TOS programs compiled by the PL/I com¬ 
piler cannot run as foreground programs. 

The dob Control statements for fore¬ 
ground jobs are the same as those for back¬ 
ground jobs, except that the options LINK 
and CATAL of the OPTION statement as well 
as the logical units SYSLNK and SYSRLB must 
net be used with foreground jobs. 


I/O DEVICE ASSIGNMENT 

The I/O devices used during compilation and 
execution are referred tc by lcgical device 
addresses instead of by their physical 
device addresses. Thus, the user nay dis¬ 
regard the physical device assignments of 
the system configuration he uses. Moreov¬ 
er, if a number of different system confi¬ 
gurations is used, recompilation of a 
scurce pregram is required only if the 
device types (1442 , 2540,, etc.) change. 

The lcgical device addresses the FL/I pro¬ 
grammer should knew are listed in Eigure 3. 
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Logical 

Device 

Address 

Device Referred to 

SYSRDR 

Input device from which Job Control statements are read. Not used by PL/l compiler or object programs. 

SYSIPT 

Input device from which the input for the PL/l compiler is read. Can also be referred to by SYSIN. 

SYSIN 

Input device combining the functions of SYSRDR and SYSIPT. 

SYSLST 

Output device used by the PL/I compiler. The device used is the same as the PL/I standard output device for listing 
(SYSPRINT). (For PL/I object-time messages refer to PROCEDURE Statement in Appendix H.) 

SYSPCH 

Card punching device used by the PL/I compiler when a punched card object deck is specified. 

SYSOUT 

Output device combining the functions of SYSLST and SYSPCH. Cannot be assigned by an ASSGN statement. 

SYSLNK 

Input/output device used by the Linkage Editor and the PL/I compiler when compiling and subsequent link-editing 
is specified. 

SYSLOG 

Console typewriter used for listing messages issued to the operator by the PL/I compiler and the object program. 
SYSLOG is also used when a DISPLAY statement appears in the PL/I program (For PL/I object-time messages refer 
to PROCEDURE Statement in Appendix J.) 

SYS000 

to 

SYS222 

Logical device addresses available to the programmer (programmer logical units as opposed to the remaining units, 
which are also referred to as system logical units).SYS0(!n, SYS002, and SY5003 are used as work file addresses by 
the language processors and the Linkage Editor. They may be used as work file or output file addresses, but the user 
must protect his input files from being destroyed by the compiler or Linkage Editor in the case of a compile-and- 
execute or link-and-execute job. For this purpose, he should use the DISPLAY statement with the REPLY option and 
instruct the operator to mount the input file immediately before opening the file at execution time if a sufficient 
number of I/O units is not available. 


Figure 3. Logical Device Addresses Used by the PL/I Programmer 


Logical device addresses can be assigned 
to physical devices 

1. when building the system, 

2. by the operator, or 

3. by means cf the ASSGN statement (see 
the section The ASSGN Sta t emen t). 

If multi-programming is included in the 
supervisor, independent sets of logical 
units are provided for the background area 
and both foreground areas. 


3HE_J0B_CpNTR0L_PR0GRAM 

The Job Control program permits processing 
of batched jobs in background mode. A j_ob 
is the execution of a problem and consists 
of one or more job s teps . A job step is a 
single compilation of an external proce¬ 
dure, a Linkage Editor run, a Librarian 
run, or the execution of an object program. 


JOB CONTROL STATEMENTS 

The execution of the Job Control program is 
initiated by Job Control statements read 
from SYSRDR. The general format of Job 
Control statements is as follows: 


1. N ame 

Job Control statements are identified 
by two slashes (//) in columns 1 and 2. 
The second slash must be followed by 
one or more blanks. Exceptions are: 


a. The end-of-job statement contains 
/S in columns 1 and 2. 

b. The end-of-data-file statement con¬ 
tains /* in columns 1 and 2. 

c. The comments statement contains * 
in column 1 and a blank in column 

2 . 

2 • O per a t io n 

The entry in the operation field cf a 
Job Control statement describes the 
type of operation to be performed. It 
must be followed by one or more blanks. 

3. Oper and 

The operand may be blank or consist of 
one or more entries separated by com¬ 
mas. Interspersed blanks are net per¬ 
mitted. The last entry must be fol¬ 
lowed by one or more blanks unless its 
last character is in column 71. 

4. Co mm ents 

Comments are permitted anywhere after 
the trailing blank of the operand 
field. 


Running Programs Under DCS/TOS control 11 








The ASSGN Statement 


The ASSGN statement is used to assign a 
logical device address to a physical 
device. The format of the ASSGN statement 
is as follows: 

~,X* ss'” 

// ASSGN SYSxxx,device-address 

_ , ALT 

SYSxxx is one of the logical devices listed 
in Figure 3 (with the exception of SYSOUT, 
which cannot be assigned by means of ASSGN 
statements). The system permits programmer 
logical units in the range from SYS000 to 
SYS222. The number of units actually per¬ 
mitted per partition in a specific instal¬ 
lation is defined at system generation time 
and normally less than 223. SYS000 to SYS- 
004 are the minimum provided by the system. 

The following restrictions should be 
observed when re-assigning some of the log¬ 
ical units: 

1. SYSRDR, SYSIPT, SYSIN, SYSLST, and SYS- 
PCH cannot be assigned to 2311 or 2314 
DASD extents by ASSGN statements. In 
case they are assignedTc^^TTll or 
2314 DASD extent either at system 
generation time or by the operator, a 
special version of the PL/I compiler 
that needs a minimum of 12K of storage 
for execution must have been cataloged 
at system generation time. 

2. SYSLNK must be assigned to the same 
device type as SYSRES for DOS and to a 
magnetic tape drive for TOS. Any re¬ 
assignments must be made before issuing 
an OPTION statement that contains the 
LINK or CATAL option. 

3. SYSLOG should be assigned to a 1052 
console typewriter. Assignment to a 
printer is possible but degrades the 
system functions and prevents the use 
of the DISPLAY statement with the REPLY 
option. 

4. SYS001 to SYS003 must be assigned to 
the same device type (either magnetic 
tape drives or 2311 or 2314 DASD 
extents) for the entire duration of a 
compilation. 

Device-add re ss permits two formats: 

X'cuu' where c is the channel number and uu 
the unit number in hexadecimal 
notation. 

UA Unassign. The job is canceled if a 

file attached to this logical unit 
is referred to by one of the I/O 
statements OPEN, CLOSE, GET, PUT, 
READ, WRITE, or REWRITE. 


X_^ssj_ is the device specification. It is 
used for specifying mode settings for 7- 
track and dual-density 9-track tapes. If 
X'ss' is not specified, the system assumes 
X'90’ for 7-track tapes and X'CO' for 9- 
track tapes. The possible specifications 
for X'ss' are listed in Figure 4. 
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Figure 4. Possible Specifications for 
X'ss' in the ASSGN Statement 


ALT indicates an alternate magnetic tape 
unit that is used if the capacity of the 
original unit is reached. The characteris¬ 
tics of the original and the alternate unit 
must be the same. Multiple alternates may 
be assigned to one logical unit. 

Note: All device assignments made with 
ASSGN statements are reset between jobs tc 
the configuration specified at system 
generation time plus any modifications that 
may have been made by the operator. (See 
the section Th e J CB S ta tement.) 


The EXEC Sta tement 

The execution of a job step is initiated by 
the statement: 

// EXEC name 

Name is the name of the first phase of the 
program to be fetched frcir the core-image 
library and to be executed. Therefore, 
execution of a PL/I compilation would be 
initiated by the statement 

// EXEC PL/I 

The name must be omitted if a program 
linked in the previous job step of the same 
job is to be executed from SYSLNK. 
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The JOE Statement 

Each job begins with tne statement: 

// JOB job-name 

Job-name is a user-defined name of 1 to 8 
characters. 

Note: The JOB statement cancels all pre¬ 

viously issued OPTION and ASSGN statements. 

The LISTIO Sta te ment 

The LISTIO statement is used to obtain a 
listing of the I/O assignments. The format 
of this statement is 

// LISTIO 


The OPTION Statement 

The OPTION statement is used to specify 
options for the compilation of PL/I source 
programs. Its format is 

// OPTION optionl[,opticn2].... 

If this statement is emitted, a set of 
standard options defined at system genera¬ 
tion time will apply. If more than one 
OPTION statement is issued in one job, all 
further OPTION statements change only those 
options that are respecified. All ether 
options will remain unchanged. 

All options specified in the OPTION sta¬ 
tement are canceled when a new JOB state¬ 
ment is read. (See the section The JOB 
Statement.) 


with one of the operands listed in Figure 
5. The listing is produced on SYSLST. The 
listing varies according to the operand. 

For magnetic tape units, physical units are 
listed with current device specification. 


The options LINK and CATAL are canceled 

1. if severe or disastrous errors have 
been detected during a PL/I 
compilation. 


r- t- 

|Operand)Causes the Listing of 


SYS 


the physical units assigned to 
all system logical units. 


PROG 


the physical units assigned to 
all background programmer logical 
units. 


ALL 


the physical units assigned to 
all logical units. 


SYSxxx 


the physical units assigned to 
the specified logical unit. 


UNITS 


the logical units assigned to all 
physical units. 


DOWN 


all physical units specified as 
inoperative. 


UA 


all physical units not currently 
assigned to a logical unit. 


X'cuu' |the logical units assigned to the 
specified physical unit. 

L_ ± _J 

Figure 5. Operands of LISTIC Statement and 
Corresponding Actions 


The MTC Stat emen t 

The MTC statement is used to control opera¬ 
tions on logical units assigned to magnetic 
tapes. The format of the MTC statement is 

// MTC op-code,SYSxxx[,nn] 


2. after a new EXEC statement has been 
executed. 

The options that may be used by the PL/I 
programmer are listed in Figure 6. 

Th e PAUS E St atement 

The PAUSE statement can be used to step 
batched-mode processing in order to save 
output files produced by a previously 
executed program. Its format is 

// PAUSE comments 

The comments are printed on SYSLOG (pro¬ 
vided SYSLOG has been assigned) to indicate 
the action to be taken by the operator. 

The RESET Stat em ent 

The RESET statement resets I/O assignments 
to the standard assignments. The standard 
assignments are those specified at system 
generation time plus any modifications made 
by the operator by means of an ASSGN com¬ 
mand (as opposed to using an ASSGN control 
statement) without the TEMP option. The 
format of the RESET statement is: 

// RESET 

with one of the operands SYS, PROG, ALL, 
SYSxxx. The meaning of the individual 
operands is described below. 

SYS resets all system logical units to 
their standard assignments. 


For further details refer to the section 
Multi-File Volumes and Backwards Files. 


PROG resets all programmer logical units to 
their standard assignments. 
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Option 

Function 

LOG 

Causes all Job Control statements to be listed on SYSLST. 

NOLOG 

Suppresses the LOG option. 

DUMP 

Causes the contents of core storage and registers to be listed on SYSLST in case of an abnormal termination of the job. 

NODUMP 

Suppresses the DUMP option. 

LINK 

Causes the compiled PL/I program to be written on SYSLNK for later processing by the Linkage Editor. This option, if 
used, must precede all other Linkage Editor control statements, if any. 

NOLINK 

Suppresses the LINK option. The LINK option is also suppressed if a serious or disastrous error is detected during 
compilation of a PL/I source program or if an EXEC statement with a blank operand field is read. 

CATAL 

Causes the LINK option to be set. In addition, it causes the cataloging of a phase or program into the core-image 
library after either a /& or a // EXEC MAINT statement has been read. 

DECK 

Causes the PL/I compiler to punch an object deck if no disastrous compile-time error has been detected. 

NODECK 

Suppresses the DECK option. 

LIST 

Causes the Pl/I compiler to list the source program on SYSLST. 

NOLIST 

Suppresses the LIST option. 

LISTX 

Causes the PL/l compiler to list the object program on SYSLST. 

NOLISTX 

Suppresses the LISTX option. 

SYM 

Causes the PL/I to list the symbol table, the block table, the offset table, and the external symbol table on SYSLST. 

NOSYM 

Suppresses the SYM option. 

ERRS 

Causes the PL/I compiler to list all detected errors on SYSLST. 

NOERRS 

Suppresses the ERRS option. 

XREF 

Causes the PL/I compiler to write a cross-reference listing on SYSLST. 

NOXREF 

Suppresses the XREF option. 

48C 

Informs the PL/I compiler that source programs are written in the 48-character set in EBCDIC notation. (No provision 
has been made for BCDIC and ASCII character sets.) 

60C 

Informs the Pl/I compiler that source programs are written in 60-character set in EBCDIC notation. 

MINSYS 
(TOS only) 

Causes the Linkage Editor to produce minimum-size modules for later runs on systems with a background program 
area smaller than 24K, when link-editing on systems with a larger background program area. 


Figure 6. Operands used in the OPTION Statement 


ALL resets all programmer and system logic¬ 
al units to their standard assignments. 


SYSxxx resets the specified logical unit to 
its standard assignment. 


The U PSI S tateme nt 

This statement (User Program Switch Indica¬ 
tors) allows the user to set program 
switches that can be tested much the same 
as sense switches or lights used on other 
machines. The UPSI statement has the fol¬ 
lowing format: 

// UPSI nnnnnnnn 


The operand consists cf one to eight 
characters of 0, 1, or X. Positions con¬ 
taining 0 are set to 0. Positions contain¬ 
ing 1 are set to 1. Positions containing X 
remain unchanged. Unspecified rightmost 
positions are assumed to be X. 


Job Control clears the UPSI byte to 
zeros before reading control statements for 
each job. When Job Control reads the UPSI 
statement,, it sets or ignores the bits of 
the UPSI byte in the communication region. 
Left to right in the UPSI statement, the 
digits correspond to bits 0 through 7 in 
the UPSI byte. Any combination of the 
eight bits may be tested by problem pro¬ 
grams at execution time. 
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The DOS PL/I compiler checks bit 0 of 
the CJPSI byte; the other bits are ingored. 

If bit 0 is on (1) during compilation, 
Librarian and Linkage Editor statements are 
produced to permit to compile and catalog 
in one job step into the relocatable 
library. Bit 0 should be off (0) if cata¬ 
loging into the relocatable library is not 
desired. For further details on cataloging 
refer to the section Cataloging into the 
^6i22£|hable_Library. 


The End-cf -D at a-File stat e men t 

The end-of-data-file statement (/* in 
columns 1 and 2) serves as a delimiter for 
the input read from SYSIPT. Therefore,, 

PL/I programs must be terminated by an end- 
of-data-file statement. This statement is 
also recognized on the programmer logical 
units that are assigned to a card reader. 
This causes the ENDFILE condition to be 
raised for a PL/I input file. 


The End-of -J ob S tatement 

The end-of-job statement (/& in columns 1 
and 2) indicates that a job has been com¬ 
pleted. If this statement is omitted, the 
Job Control program may skip the next job 
stacked on SYSRDR and/or SYSIPT. If SYSRDR 
and SYSIPT are different units, the end-of- 
job statement must appear on both. 

The Comm e nt s Sta t ement 

A special comments statement (* in column 1 
and blank in column 2, followed by the 
desired comments) is available for longer 
messages. The comments are printed on SYS- 
LOG, but no halt is caused by this 
statement. 

File Labe l Job Contr ol Statements 

For all Job Control statements referring to 
disk and tape file labels see the section 
File_Labels. 


| THE PROCESS STATEMENT 

The PROCESS statement allows the programmer 
to specify compile-time options. More than 
one card may be used per external 
procedure. 

General format: 

* PROCESS option [,option]... 
or 

+ PROCESS option t,option]... 


General rules: 

1. The cards have to precede the PL/I 
source program. They must,, however, 
follow the // EXEC FL/I statement. 


2. The card has to start either with an 
asterisk or with a plus sign in column 
one, followed by one or more blanks. 

If the plus sign is used it is treated 
as an asterisk. The option list may 
not extend beyond column 71. 


3. The options in the PROCESS statement 
override job-control options or any 
other options encountered in previous 
PROCESS statements. 


The options that can appear in the 
operand field of a PROCESS card are: 


1. Options supported by Job Control: 

DECK NCSYM 

NCDECK ERRS 

LIST NOERRS 

NCLIST XREF 

LISTX NOXREF 

NCLISTX 48C 

SYM 60C 

A description of the above options is 
given in Figure 6 in the section The 
Jo b Control Program. 


2. Options not supported by Job Control: 


a. OFT, NOOPT 

OPT causes the optimization of 
compiled code. 

NOOPT suppresses the OPT option. 

The default is CPT. 

Note: Optimization implies the 

deletion of as much code as the 
compiler can diagnose as redundant. 

Wa rnin g: If the option OPT is 

used, sequential assignment state¬ 
ments for the same variable (e.g.,, 
A=l; B=X; A=3;) will be optimized 
in such a way that - as the con¬ 
tents of 'A' are not referred to 
between the two assignments - the 
first assignment to 'A' will be 
optimized. 

If the contents of 'A* are required 
between the two assignments (e.g.. 
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to be used as control values in the 
event of an interrupt such as SIZE, 
CONVERSION, etc.) the assignment 
statements must be l abeled, since 
labeling a statement resets the 
internal optimization control. 


b. STMT, NCSTMT 

STMT causes statement numbers to 
be printed with object time 
diagnostics. 

NOSTMT suppresses the STMT option. 
The default is NOSTMT. 


c. LISTO, NOLISTO 

LISTO causes the statement num¬ 
bers to be listed and the 
offset of the first byte 
used after these statements 
to be printed. 

NOLISTO suppresses the LISTO 
option. 

The default is NOLISTO. 

Note; LISTO overrides LISTX, i.e.„ 
if LISTO and LISTX are specified, 
the LISTX option is ignored. 


COMPILATION UNDER DOS/TOS CONTROL 

If a single PL/I source module is to be 
compiled under DOS/TOS control, the card 
seguence should be as follows: 


Deck on SYSRDR 


// 

JOB 

MYJOB 

// 

OPTION 

DECK,48C 

// 

ASSGN 

SYSIPT ,X' 271' ,,X' 50 ' 

* 

PLEASE 

MOUNT REEL 4711 ON UNIT 271 

// 

PAUSE 

PROCEED 

// 

EXEC 

PL/I 

// 

EXEC 

PL/I 

// 

EXEC 

PL/I 

/s 



Records on SYSIPT 


First 

PL/I source module 

/* 

Second 

PL/I source module 

/* 

Third 

PI/I source module 

/* 



/& 




H 


Figure 7. Coding for a Job Consisting of 
three FL/I Compilations 


ASSGN statements to change the assign¬ 
ment of logical device addresses for this 
job may be placed anywhere between the JOB 
and the EXEC statement-. Assignments for 
SYSLNK must not be changed after OPTION 
LINK has been specified. 

Figure 7 shows the coding for a job con¬ 
sisting of three PL/I compilations. SYSRDR 
and SYSIPT are assumed to refer to dif¬ 
ferent input devices. SYSIPT is assumed to 
be a 7-track tape drive. 

Since a job step comprises only one 
single compilation, an EXEC statement as 
well as a /* statement is required for the 
compilation of each source module (external 
procedure). 


// 

JOB 

job-name 

// 

OPTION 

DECK,LIST,NOSYM,60C see note 1 

// 

EXEC 

PL/I 


PL/I source module 


/* 

/& see note 2 


Not e 1 : This statement causes the PL/I 
compiler to punch an object module on SYS- 
PCH and to list the source program on SYS- 
LST. The listing of source module symbols 
is suppressed. The source program is writ¬ 
ten in the 60-character set. LOG, DUMP, 
LISTX, and ERRS are assumed to have been 
established as standard options at system 
generation time. 

No te 2: Another /£ card must be read from 
SYSIPT if SYSRDR and SYSIPT do not refer to 
the same input device. 


THE LINKAGE EDITOR P ROGRA M 

The Linkage Editor program relocates the 
object modules produced by the PL/I compil¬ 
er into an absolute object program. 

Modules retrieved from the relocatable 
library may be incorporated into the object 
program during the Linkage Editor run. 
Programs written in Assembler language and 
assembled by means of the DOS/TOS Assembler 
may also be incorporated. For details on 
the communication with programs written in 
Assembler language refer to the section 
Lin kag e Co nvention s. The object program 
produced by the Linkage Editor may either 
be executed by using the EXEC statement 
with a blank operand or be incorporated 
into the core-image library. 

If a Linkage Editor run is desired, the 
first Linkage Editor control statement and 
the first EXEC statement must be preceded 
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by an OPTION statement with either the LINK 
or the CATAL option. 

The Linkage Editor program can run in 
the background partition only. 


LINKAGE EDITOR CONTROL STATEMENTS 

The execution of the Linkage Editor program 
is initiated by Linkage Editor control sta¬ 
tements read from SYSRDR. The general for¬ 
mat of Linkage Editor control statements is 
similar to that of the Job Control state¬ 
ments, except that Linkage Editor control 
statements have a blank in column 1 instead 
of // in columns 1 and 2. 

The Linkage Editor program uses the fol¬ 
lowing four control statements: 

• the PHASE statement, 

• the INCLUDE statement, 

• the ENTRY statement, and 

• the ACTION statement. 

The exact format of these statements is 
given in those parts of this section where 
their application is described. 

The AC TION S ta tem ent 

This is an optional statement for directing 
the Linkage Editor. If ACTION statements 
are issued to the Linkage Editor, they must 
precede all other input to the Linkage Edi¬ 
tor on SYSLNK. This can be ensured by 
placing the ACTION statement(s) immediately 
after the OPTION statement with the operand 
LINK or CATAL. The format of the ACTION 
statement is: 

ACTION operand 

The following operands are of interest 
to the PL/I user: 

FI The program is link-edited to work 

F2 in foreground partition 1 or 2, 

respectively. The start address 
of the appropriate foreground par¬ 
tition is assumed to be the 
address allocated at link-edit 
time. Only one of these two 
operands may be specified for one 
link-editing step. (The operands 
FI, F2 are not available in TOS.) 

NOMAP Suppresses listing of the Linkage 
Editor storage map on SYSLST. 
Diagnostics are written on SYSLOG. 

CANCEL The job is canceled if any error 
is detected during link-editing. 


More than one ACTICN statement may be 
issued for one link-editing step. 

The_PHASE_Statement 

If the program consists cf more than cne 
phase or if the program is to be cataloged, 
each phase to be link-edited must be pre¬ 
ceded by a PHASE statement of the following 
format: 

PHASE phase-name,origin 

Phase-na me is a symbol consisting of 1 to 8 
characters, the first of which must be 
alphabetic but should net be a $ sign. In 
case of multi-phase programs, the phase- 
name must be longer than four characters 
and the first four characters must be 
identical for all phase names of that pro¬ 
gram. Different programs must differ in 
the first four characters of their phase 
name(s) in order to avoid incorrect storage 
allocation. (See the section Processing of 
Ove rl a ys by th e Linkage E ditor .) 

Origin indicates to the Linkage Editor the 
begin address of this specific phase. An 
asterisk may be used as an origin specifi¬ 
cation to indicate that this phase is to 
follow either the previous phase cr the 
Supervisor at the next double-word boun¬ 
dary. This simple format of the PHASE sta¬ 
tement covers all normal applications in 
the background partition. For the format 
of the phase origin in overlay structures 
refer to the section Over lay. 

Two methods are available for link- 
editing foreground programs: 

1. Using the statement ACTION Fn. In this 
case, the same set of PHASE statements 
may be used as for background programs. 

2. Using the operand format F+address of 
the PHASE statement for the origin of 
the first (or only) phase. 

ad dr ess is the absolute address of the 
foreground area in which the link- 
edited program is to be executed. It 
may be specified by a nexadecimal numb¬ 
er of four to six digits (X'hhhhhh') or 
by a decimal number cf five tc eight 
digits (dddddddd) or in the form nnnnK,, 
where nnnn is two to four digits and K 
equals 1024. For example, an origin 
may be specified as F+X'8000' or F+ 
32768 or F+32K. 

For either method, a foreground save 
area is created at the specified address. 
The (first) phase starts at the first 
double-word boundary following this save 
area. The space allocated to a foreground 
program by the Linkage Editor plus suffi¬ 
cient space following the end of the pro¬ 
gram for dynamic allocation of PL/I auto- 
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matic storage must be allocated at execu¬ 
tion time to the appropriate foreground 
partition. 

Since foreground programs must be cata¬ 
loged before they can be executed, a PHASE 
statement is mandatory for foreground pro¬ 
grams. (Programs compiled by the PL/I com¬ 
piler and PL/I library routines are not 
self-relocating^) 

Note: The autolink feature of the Linkage 

Editor is required to include routines from 
the relocatable library that are to be 
linked with the object modules compiled by 
the PL/I compiler. Therefore, the option 
NOAUTO of the PHASE or ACTION statement 
must never be used. 


INCLUDING OEJECT MODULES INTO THE OBJECT 
PROGRAM 

The appropriate object modules can be inco¬ 
rporated into the object program by: 

• compilation,, 

• including object card decks, 

• including object modules from the relo¬ 
catable library, or 

• using the autolink feature. 

CoffPiigtion 

To have the source module compiled and the 
output written on SYSLNK, the card sequence 
must be as follows: 

// EXEC PL/I 

.... PL/I source module 

/* 

If SYSRDR and SYSIPT refer to different 
input devices, the PL/I source module and 
the /* card must be read from SYSIPT. 

Processing by the Linkage Editor and 
execution is suppressed in case severe or 
disastrous programming errors are detected 
during compilation. 

Source modules written in Assembler lan¬ 
guage may be added in the same manner by 
using the statement // EXEC ASSEMBLY for 
calling the Assembler. For details on the 
communication with programs written in 
Assembler language refer to the section 
Lin kag e Co nv entions. 

Including Obje ct Card Dec ks 

To include one or more object card decks 
into the object program, the required con¬ 


trol cards as well as the sequence in which 
they must be read from SYSIPT or SYSRDR,, 
respectively, are shown in Figure 8. 

Note: The INCLUDE card, when used for this 

application, must have the following 
format: 

INCLUDE preceded and followed by blanks 
only 




“T” 


Cards 


1 

Read from 

INCLUDE 


1 

I 

SYSRDR 

77 ! 

one or more cb 

1 

-1 

SYSIPT 

... 

ject modules 

1 

j 


/* 


1 

1 

-X- 

SYSIPT 


Figure 8. Including Object Card Decks 

In c luding Object Module s fro m th e 
Rel o ca ta ble L i brar y 

An INCLUDE statement must be read from SYS¬ 
RDR for each module to be incorporated into 
the object program from the relocatable 
library. When used for this application, 
the INCLUDE statement must have the format: 

INCLUDE module-name 
Using the Auto l ink Feat ure 

If some references to external names remain 
unresolved after all modules have been read 
in from SYSLNK, SYSIPT, and/or from the 
relocatable library, the autolink feature 
of the Linkage Editor searches the relocat¬ 
able library for module names identical tc 
the unresolved names and includes the 
corresponding modules into the object 
program. 

Pr iv ate R e locatab l e Libr a ry under DOS 

Cataloging and including of relocatable 
modules may be performed by means of a 
private relocatable library. For DOS, the 
private relocatable library resides on an 
extra 1316 disk pack. The 2311 disk drive 
on which this pack is mounted has the log¬ 
ical device address SYSRLE. 

For including modules, the DOS Linkage 
Editor first searches the pack assigned to 
SYSRLB and, if the requested module is not 
found there or if SYSRLE is not assigned, 
it searches the relocatable library on the 
system residence pack. 

If SYSRLB is assigned, relocatable 
modules are cataloged intc the private 
relocatable library, otherwise, they are 
cataloged into the system residence pack. 
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For creating private relocatable 
libraries refer to the SRL publication IBM 
S ystem / 360, Disk O per ating Sys te m, Sys te m 
Control and Sy st em S ervi ce "P rograms, For m 
GC24-5036.” 

For private relocatable libraries under 
TOS see Sp ecial Considera tions on TCS. 

The ENTRY Statement 

The card input to the Linkage Editor may be 
delimited by an ENTRY statement of the fol¬ 
lowing format: 

ENTRY [name] 

Na me is the external name of the entry 
point used. The entry point must be a pri¬ 
mary or secondary entry of the external 
procedure that has the option MAIN. If the 
primary entry point of the MAIN procedure 
is used, the name may be omitted. 


build an object program. Four modules plus 
the appropriate library subroutines are to 
be combined into an object program, which 
is to be executed upon completion of the 
compilation. The example is based on the 
following assumptions: 

1. One module (A) is a PL/I source module. 

2. Two modules (PI, P2) have been pre¬ 
viously compiled and punched. 

3. One module (R) is contained in the 
relocatable library. 

4. A listing of the source program and the 
symbol table is required for module A. 

5% A is the entry point to be used. 

No te: The numbers at the left in Figure 10 
are for reference purposes only; they are 
not part of the coding. 


If no ENTRY statement is issued, ENTRY 
with a blank operand is assumed. 

N ot e: If modules written in Assembler lan¬ 

guage are to be incorporated into the 
object program, the Assembler END statement 
should have a blank operand field in order 
to avoid confusion of entry points. 

Errors Dur in g Link age Edi ting 

For each file specified in the source pro¬ 
gram, the compiler generates a special DTF 
table which includes the names of the I/O 
modules to be called. Sometimes different 
I/O modules have the same secondary entry 
point; e.g.„ for ISAM files the same secon¬ 
dary entry point IJHAARZZ occurs if in one 
file ADDBUFF (primary entry point IJHAARZP) 
is specified and in another INDEXAREA (pri¬ 
mary entry point IJHAARCZ) (see Figure 9). 
In this case message 21431 (Content of sta¬ 
tement in error) will be generated during 
link-edit time. The program executes 
correctly, however. 


r- 1 -,- n 

| |INDEXAREA|INDEXAREA | 

| |specified I not specified) 

j.-+-f- 1 

|ADDBUFF specified1IJHAARCP)IJHAARZP | 

I III 

(ADDBUFF not |IJHAARCZ |IJHAARZZ | 

| specified j | j 

l_I_jl_J 

Figure 9. Generation of Secondary Entry 
Points in I/O Modules for ISAM 
Files 


SAMPLE COMPILATION 


7 

8 
9 

10 


11 

12 


// JOB N01234 
// OPTION LINK,SYM,LIST 
PHASE EXAMPLE,* 

// EXEC PL/I 

A: PROCEDURE OPTIONS (MAIN); 


/* 


END /*A*/; 
INCLUDE 
deck PI 

deck P2 


/* 

INCLUDE R 
ENTRY 

// EXEC LNKEDT 
// EXEC 


data 


/* 

/S 


Figure 10. Sample Compilation 

Exp lanatio n 

1 Furnishes the Communication Region of 
the Supervisor with the name of the job. 

2 Specifies the compiler options SYM and 
LIST and enables the PL/I compiler and 
Job Control to write cr copy the output 
on SYSINK for later processing by the 
Linkage Editor. 


The example shown in Figure 10 illustrates 
a combination of all three possibilities to 


3 The PHASE statement precedes all modules 
to be processed by the Linkage Editor. 
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The asterisk indicates that the program 
is to be loaded immediately following 
the Supervisor. 


4 Calls the PL/I compiler. 


5 PL/I source program. A (the name of the 
MAIN procedure) is the primary entry 
point. 


6 Causes the subsequent modules PI and P2 
to be copied onto SYSLNK. 


r —t-t 

| | Cards read from SYSRDR | 


13 


14 


t- 


// 

JCB 

NC1234 

// 

AS.SGN 

SYSIPT,X*281' 

// 

CFTICN 

LINK,SYM,,LIST 


PHASE 

EXAMPLE,, * 

// 

EXEC 

INCLUDE 

FL/I 


INCLUDE 

ENTRY 

R 

// 

EXEC 

LNKEDT 

// 

/6 

EXEC 



x-J 


7 This statement is copied onto SYSLNK. 
When encountered by the Linkage Editor, 
the module R is fetched from the relo¬ 
catable library and incorporated. 


8 Delimits the input to the Linkage Edi¬ 
tor. The blank operand causes the pri¬ 
mary entry point A to be entered by Job 
Control at execution time. 


Figure 11. Control Cards and Input Units 
for Deck Shewn in Figure 10 
(Part 1 of 2) 


E xp lanation 


13 SYSIPT is assigned to a 7-track tape 

drive. (The assignment differs frem the 
installation standard.) 


9 Calls the Linkage Editor to produce the 
object program. The names of all 
modules called by A, PI, P2, and R must 
be names of modules contained in the 
relocatable library. These modules are 
automatically incorporated by the auto¬ 
link feature of the Linkage Editor. 

10 Causes Job Control to fetch the execut¬ 
able object program and transfers con¬ 
trol to A for execution. 

11 The end-of-data-file statement delimits 
the input data. If the file name is 
explicitly declared, this statement may 
be tested by means of an ON ENDFILE 
statement. 

12 End-of-job statement. In case of an 
abnormal termination of the job, Job 
Control skips all input up to this 
statement. 

Assumed that all input to be read from 
SYSIPT has been loaded onto a 7-track tape 
reel and that SYSIPT is assigned to the 
tape drive whose physical address is 281, 
the input from SYSRDR and SYSIPT for the 
above example is as shown in Figure 11. 


14/6 must appear on both SYSRDR and 
SYSIPT. 


r —t 

I 

t- 


Cards read from SYSIPT 

- ^ 

A: PROCEDURE OPTIONS (MAIN); 


/* 


/* 


/* 
/ 6 


END /*A*/; 

... deck PI 
... deck P2 

... data 


14 

i_x_J 


Figure 11. Control Cards and Input Units 
for Deck Shown in Figure 10 
(Part 2 of 2) 
















CATALOGING 


Cataloging of frequently used program 
phases or object modules into one of the 
DOS/TOS libraries greatly reduces the time 
required for card reading and/or Linkage 
Editor processing. Object modules may be 
cataloged into the relocatable library. 
Executable programs already processed by 
the Linkage Editor may be cataloged into 
the core-image library. 

The name of a phase or module must be 
unique for each library. If phases or 
modules are cataloged, any module or phase 
already contained in the respective library 
and having the same name is automatically 
deleted. This necessitates some naming 
conventions for each installation in order 
to prevent a user from deleting programs 
that are either part of the system or cata¬ 
loged into the library by other programmers 
using the same installation. Core-image 
library phase names starting with $ as well 
as relocatable library module names start¬ 
ing with IJ are names of system programs. 
For this reason, the user should be very 
careful when cataloging phases or modules 
the names of which start with the above 
characters. 

The Library routine that handles cata¬ 
loging and deleting is called by the Job 
Control statement // EXEC MAINT. 


CATALOGING_INTg_THE_CORE :: IMAGE_LIBRARY 

If a program is to be cataloged into the 
core-image library, the statement // OPTION 
with the CATAL option must be given prior 
to Linkage Editor processing, i.e., this 
statement must precede the first PHASE card 
of the program to be cataloged in case of 
compile-and-link runs. Upon successful 
completion of Linkage Editor processing the 
program is then automatically cataloged 
when an // EXEC LNKEDT and /£ card is read. 
(Note that no // EXEC statement without 
name must precede the // EXEC LNKEDT or /6 
statement in this job.) No further catalog 
control statements are required. 

Note: An error may occur if a phase exists 

in the core-image library whose name starts 
with the same four characters as the pro¬ 
gram to be cataloged (see the publication 
IBM System /3 60 D isk Operating Sy stem, S ys - 
Iem Control an d Syst e m S er vic e Pro gr ams, 
Form GC24-5036). .... 

Programs or phases that are no longer 
required in the core-image library may be 
deleted by using the DELETC statement, the 


two possible formats of which are as 
fellows: 

DELETC phasel[,phase2].. . 

DELETC prgl.ALL[„prg2.ALL]... 

The first format is used to delete 
single phases. The operands phasel, pha- 
se2, etc., each specify the name cf one 
phase to be deleted. The second format is 
used to delete entire programs. Since the 
first four characters of all phase names of 
any program are identical, the entire pro¬ 
gram is deleted if these four characters 
are specified, prgl, prg2„ etc.,, must 
therefore be exactly four characters long. 


CATALOGING INTO THE RELOCATABLE LIBRAR Y 

Each card deck to be cataloged into the 
relocatable library must be preceded by the 
control statement 

CATALR module-name[,v.m3 

The module specified by the operand 
m odule-nam e is then incorporated into the 
relocatable library. Cataloging stops when 
the END card of the module has been cata¬ 
loged. The module may be preceded but not 
followed by Linkage Editor control 
statements. 

v. m specifies the change level at which 
the module is to be cataloged, v may be 
any decimal number from 0 through 127. m 
may be any decimal number from 0 through 
255. A change level of 0.0 is assumed if 
this operand is omitted. 

Compilation of a PL/I source module may 
result in two object modules. (The first 
one will be referred to as file module and 
the second one as procedure module in this 
section.) The file module is produced for 
all cf the file declarations (except file 
name parameters) contained in the source 
module. The procedure module is produced 
for the source module itself. Note that 
each individual object module requires a 
separate CATALR statement for cataloging. 
The file module may be cataloged under any 
of the file names. 

The DCS PL/I compiler facilitates cata¬ 
loging into the relocatable library by 
optionally producing control statements on 
SYSPCH. If bit 0 of the UPSI byte (see the 
section The_UPSI_Statement) is on during 
compilation, the following output is 
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generated on SYSPCH depending on whether or 
not a file module is generated with the 
external procedure: 

with file mo du le without_file_rriodule 

CATALR Fname CATALR name 

file module procedure module 

CATALR name 
INCLUDE Fname 

procedure module 


name is the primary entry point of the 
external procedure. Fname means that the 
name of the external procedure, immediately 
preceded by the character F, is used as the 
name of the file module. The INCLUDE sta¬ 
tement is generated to have the file module 
automatically included with the procedure 
module. 

There is no automatic catalog feature 
for ccmpile-and-catalog into the relocat¬ 
able library. However,, if a sufficient 
number of tape drives is available, it is 
recommended to assign SYSPCH to a magnetic 
tape drive and to reassign the same drive 
to SYSIPT for the catalog step, thus eli¬ 
minating unnecessary card handling. 

The following example shows what control 
statements are required for compile-an d- 
catalog into the relocatable library: 

// JOB COMPILE AND CATALOG 

* INTO THE RELOCATABLE LIBRARY 

// OPTION SYM,LISTX,DECK 

1 // UPSI 1 

2 // ASSGN SYSPCH,X’182' 

2 // MTC REW,SYSPCH 

// EXEC PL/I 

• • • 

... PL/I source program 

/* 

3 // MTC WTM,SYSPCH 

3 // MTC REW,SYSPCH 

3 // RESET SYSPCH 

4 // ASSGN SYSIPT,X'182' 

5 // EXEC MAINT 
/£ 

Exp lanation 

1. This statement causes the DOS PL/I com¬ 
piler to generate control statements 
that precede the object module (s). 

2. Assigns magnetic tape unit 182 to SYS¬ 
PCH and positions the tape at the load 
point. 

3. Closes and repositions SYSPCH. (Do not 
use the // CLOSE statement since this 
statement unloads the tape, thus caus¬ 
ing unnecessary operator action). 


4. The compiler output is now assigned to 
SYSIPT. 

5. The librarian is called. The CATALR 
statements cause cataloging into the 
relocatable library. 


Note: The control statements are generated 

only on SYSPCH, not on SYSLNK. Thus,, 
compile-and-catalog into the relocatable 
library does not preclude the LINK and 
CATAL options in the same job. 

The DEIETR statement may be used tc 
delete either single modules or entire pro¬ 
grams contained in the relocatable library. 
All modules whose names start with the same 
3-character combination are considered to 
be part of the same program. The two poss¬ 
ible formats of the contrcl statement are 

DELETR module-namel[,mcdule-name2]... 

DEIETR prgl.Alii,prg2.ALL]... 

The operands prgl, prg2, etc., must con¬ 
sist of exactly 3 characters. 


LIBRAR Y MA INTENANCE RUNS 

Cataloging and deleting fcr all libraries 
can be done in one single job step. In the 
following example, the pregram LNCT is 
deleted from the core-image library and the 
modules BCDFIR and BCDSEC are cataloged in 
the same job step. BCDSEC is preceded by a 
PHASE statement that is tc be cataloged 
with the module. 

// JOB CATALOG TWO DECKS, 

* SECOND WITH PHASE CARD 
// EXEC MAINT 

DELETC LNCT.AII 
CATALR BCDFIR 

. . . deck BCDFIR 

CATALR BCDSEC 
PHASE BCDPR2,* 

* THIS STATEMENT IS ALSO CATALOGED 

... deck BCDSEC 

/* END OF MAINT. DECK 

/£ 

The input deck must be followed by an 
end-of-data-file statement if another job 
step within the same job fellows the main¬ 
tenance run. The Librarian control state¬ 
ments and input decks tc be catalcged are 
read from SYSIPT. (In TCS, Librarian con¬ 
trol statements are read from SYSRDR.) 
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Examplefor Cataloging a F or e ground Program 



// 

JOB 

CATALFG 


// 

OPTION 

CATAL 

1 


ACTION 

F2 

2 


PHASE 

FGPXYZ, * 


// 

EXEC 

PL/I 



PL/1 

source deck 


/* 



3 

// 

ASS3N 

SYSRLB,X'192 


// 

EXEC 

LNKEDT 


/& 




The ACTION statement (1) causes the Lin¬ 
kage Editor to allocate storage for the 
program in the storage presently allocated 
to the foreground-two partition. The PHASE 
statement (2) gives the program the name 
FGPXYZ. The second operand (*) specifies 
that the program is to start n bytes behind 
the location assigned at link-edit time as 
the start address of the foreground-two 
partition (n is the length of a foreground 
save area required by the system). The 
program to be cataloged is compiled in the 
same job. The ASSGN statement (3) assigns 
SYSRLE sc that the Linkage Editor can 
obtain modules to be included by the AUTO¬ 
LINK feature frcm a private relocatable 
1ibrary. 


SPECIAL C ONS I DER ATIONS CN TCS 

If TOS is used, phases in the core-image 
and modules in the relocatable library are 
not stored at random locations but in 
alphameric order. Therefore, all phases 
and/or modules to be cataloged must also be 
in alphameric order. Maintenance requests 
for the core-image and the relocatable 
library may be given in the same job step 
but must not be intermixed. Note that a 
maintenance run under TCS control causes 


copying of the full system onto a new 
volume that will be located on SYS002. 
SYS001 must be assigned to a tape drive for 
intermediate use in this case. 

The TOS compiler does not generate 
CATALR statements. However, the user may 
prepare his own CATALR statements and put 
them into the job stream cn SYSRDR follow¬ 
ing // EXEC MAINT. (In TOS, Librarian con¬ 
trol statements are read from SYSRDR 
instead of from SYSIFT.) The file module 
should be given a name equal to one of the 
file names to avoid the use of an INCLUDE 
statement for including the file module. 

Users needing a large number of relocat¬ 
able modules should use a priva te relocat¬ 
able libra ry. Using a private relocatable 
library yields the following advantages: 

1. Only the relocatable library is copied 
during updating. 

2. The performance of INCLUDE and AUTOLINK 
is considerably faster during proces¬ 
sing by the Linkage Editor. 

During Linkage Editor processing and 
library maintenance,, the private relocat¬ 
able library resides on an additional mag¬ 
netic tape unit assigned to SYSRLE. A 
private relocatable library is produced by 
preceding the first CATALR or DELETR state¬ 
ment by the special Librarian statement 
NEWVOL. (The tape reel on SYS002 to accom¬ 

modate the newly created relocatable 
library must be initialized with a standard 
volume label.) 

If a private relocatable library is to 
be used on TCS, it must contain all modules 
to be included from the relocatable library 
because SYSRLB and the relocatable library 
on the system's resident library are never 
searched both. 
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DATA FILES 


Terminology 

A file is a set of data stored on an 
external storage medium. Its purpose is 
either one or a combination of the 
following: 


• To provide the program with the required 
input. 

• To store intermediate results obtained 
during the execution of the program. 

This may be required because the storage 
capacity does not suffice to accommodate 
both the program and the data. 

• To store the results obtained by the 
execution of the program (maybe for use 
as input either to the same program at a 
later execution or to another program). 

A. b loc k is the physical unit of informa¬ 
tion transferred between internal storage 
and the external storage medium of the 
file. 

A r eco rd is the unit of information 
which is logically transferred between the 
program and the file by a single PL/I READ, 
WRITE, or REWRITE statement. A block may 
contain more than one record (blocked reco¬ 
rds). In blocked record files, the records 
are buffered until a full block has been 
gathered and then physically transmitted to 
the file. In the case of input files, one 
block is read into a buffer, and each READ 
statement transfers (locates) one single 
record to the program. 

A label is a special set of records that 
identifies a magnetic tape file or a direct 
access storage device (DASD) file. Labels 
are processed by the PL/I statements OPEN 
and CLOSE. 

A key is the information required to 
locate a record within a DASD file declared 
with the attribute DIRECT. 


FILE ORGANIZATION SCHE MES 

The organization of a file may be consecu¬ 
tive, regional, or indexed. 

The term file organization is synonymous 
with an algorithm for identifying and 
locating blocks and records on the storage 
medium holding the file. 


CONSECUTIVE FILES 

The blocks contained in CONSECUTIVE files 
are identified by the sequence in which 
they are stored. This renders it imposs¬ 
ible to access (or store) the blocks in any 
manner other than sequential. This, in 
turn, implies that the DIRECT attribute is 
not permitted for CONSECUTIVE files. 

A PL/I file declared tc be CONSECUTIVE 
may consist of a deck of punched cards, a 
listing on a printer, one or mere reels of 
magnetic tape, or some space on one or more 
1316 disk packs used with the 2311 disk 
drive. Other storage media for CONSECUTIVE 
files like the paper tape reader, the opt¬ 
ical character reader, cr teleprocessing 
lines (DOS only) may be addressed by using 
subroutines written in Assembler language 
that will process these files. 

A magnetic tape file may be contained on 
a single tape reel or-on more than one reel 
(multi-reel file). The logical unit where 
the file is located must be declared in the 
MEDIUM option of the ENVIRONMENT attribute. 
When using a multi-reel file, more than one 
tape drive may be assigned to this logical 
unit by specifying the ALT option in the 
ASSGN statement to overlap processing and 
mounting of tape reels. Only labeled files 
should be used for multi-reel files. 

A magnetic tape may also contain more 
than one file. To position the file 
correctly an MTC statement may be used to 
space the tape forward ever as many tape 
marks as precede the file tp be opened. 
(Refer to Multi-Fil e Volumes and Backwards 
Files in the section File La bel s.) 


REGIONAL FILES 

The regional file organization is possible 
only for DIRECT DASD files. REGIONAL files 
are processed using the DCS Direct Access 
method. Two different methods are used: 

• REGIONAL(1) where records are addressed 
by their relative position in the file 

• REGIONAL (3) where records are addressed 
(1) by the number of the track on which 
they reside, the track number being 
relative to the first track cf the file 
and (2) by means of a key associated 
with the record. 

For further details refer tc the section 
Disk_Organization. 
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• REGIONAL files must be de¬ 
clared with the attributes DIRECT and 
KEYED, which exclude the use of the STREAM, 
PRINT, SEQUENTIAL, and the buffering attri¬ 
butes. The KEYLENGTH option of the 
ENVIRONMENT attribute is not permitted for 
REGIONAL(l) files but must be specified for 
REGIONAL (3) files. REGIONAL files permit 
only fixed unblocked records. The V, U, 
BUFFERS, LEAVE, and NOLABEL options of the 
ENVIRONMENT attribute are not permitted for 
REGIONAL files. The maximum relative reco¬ 
rd or track number is 2 24 - 1 -. The EXTENT 
statements for REGIONAL files must be supp¬ 
lied in ascending symbolic-unit order. If 
there are multi-volume files, the symbolic 
units must be assigned in consecutive 
order. 

Note on Co mp atibility. In OS PL/I, certain 
information contained in the key field or 
data field of REGIONAL files is used to 
flag a record of that file as deleted. 
Therefore, if the user plans to create 
files with DOS PL/I and read and/or update 
them with OS PL/I, he should avoid keys or 
data that would cause OS PL/I to consider 
the record as deleted. For detailed infor¬ 
mation refer to the pertinent section of 
the.OS PL/1 Programmer's Guide, Form 
GC 28-6594. 

REGIONAL_m_Files 

The individual records in a REGIONAL(l) 
file are identified by their position rela¬ 
tive to the position of the first record in 
the file, which has a relative record numb¬ 
er of 0. A track is assumed to contain as 
many records as may fit, i.e., if some 


parts of the track are still empty, these 
"holes" are nevertheless counted as real 
records. The number of records per track 
is shown on the Programmer's Reference 
Chart, Form X20-1705. The key used to 
identify individual records and issued with 
the KEY or KEYFRCM option of a READ, WRITE, 
or REWRITE statement is net written onto 
the DASD file but specified as a numeric 
field declared as PICTURE ’ (8)9'. There¬ 
fore, records to be read from a REGIONAL(1) 
file must not contain keys on the DASD. 

The value contained in the numeric field 
(key) is the relative number of the record 
in the file. 

Creatin g a REGIONAL(1 ) File. The extents 
to be used by a PL/I~REGIONAL(1) file must 
be preformatted by the CCS Clear Disk uti¬ 
lity program. (For details refer to the 
SRL publication IBM S ys tem/360 , Disk an d 
Tape Operating Systems , Utilit y Pr ogram 
S p ecific at ions, Form GC24-3465.) This uti¬ 
lity program creates dummy records that 
contain a string filled with user-defined 
characters. The file can then be actually 
created by specifying the OUTPUT attribute. 
Figure 12 (top) shows a sample card deck 
used for preformatting a REGIONAL(l) file. 

The DLEL and EXTENT statements are 
described in the section File Labels . Note 
that the dummy file should have an expira¬ 
tion date that has already been passed 
because, otherwise, the unexpired-file con¬ 
dition would prevent the PL/I output file 
from being opened. Note further that the 
dummy file is sequential and that its name 
is UOUT, independent of the actual name of 
the file to be used in the PL/I program. 



Figure 12. Sample Card Decks for Preformatting REGIONAL Files 
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The CJCL statement and the END statement are 
utility control statements and have a fixed 
format, i.e., no additional blanks must be 
inserted. K=0 means that no key is asso¬ 
ciated with the records. D=100 means that 
the block length is 100. This value may be 
modified to the user's requirements and 
must be identical with the actual block 
length of the PL/I file. The dollar sign 
is the character to which the file is 
cleared. It may be replaced by any other 
character. 

The KEY and KEYFROM Opt ions for REGIONAL(1) 
Fills. The expression in the KEY or KEY¬ 
FROM option in READ, WRITE,, or REWRITE sta¬ 
tements must result in a character string 
of the form PICTURE '(8)9'. The value n 
represented by this expression is used to 
access the n-th record of the file relative 
to the beginning of the file, n must be 
less than 2 24 . 

REGI0NALl3)_Files 

Contrary to REGIONAL(l) files, records in 
REGIONAL(3) files are addressed by the 
number of the track on which they are 
located, the track being relative to the 
first track occupied by the file. The 
first track of a REGIONAL(3) file is coun¬ 
ted as track 0. Each individual record 
contained in one track is associated with a 
key on the DASD in order to distinguish it 
from other records in that track. The 
length of this key is declared in the KEY- 
LENGTH option of the ENVIRONMENT attribute. 
The key is a concatenation of two strings. 
The first (left) key string is a character 
string of a maxi-mum length of 247 charac¬ 
ters and contains the information required 
to distinguish the records from the remain¬ 
ing records on the same track. The second 
(right) key string is a numeric field de¬ 
clared as PICTURE '(8)9' which contains the 
relative track number. The full key is 
written onto, or read from, the DASD file. 

Like REGIONAL(1) files, REGIONAL(3) 
files require preformatting by the DOS 
Clear Disk Utility program. In addition to 
its clearing function, the utility program 
resets the record R0 (capacity record) to 
reflect that all tracks are empty. The 
file can then be actually created by speci¬ 
fying the OUTPUT attribute. An example is 
shown in Figure 12 (bottom). 

If an attempt is made to write more 
records onto a track than its capacity per¬ 
mits, the ON KEY condition is raised. 

The KEY and KEYFROM Options f or REGIONAL(3) 
Files. The expression in the KEY or KEY¬ 
FROM option in READ, WRITE, or REWRITE sta¬ 
tements must result in a character string 
whose length is the same as the length spe¬ 
cified in the KEYLENGTH option of the 


ENVIRONMENT attribute. The last 8 charac¬ 
ters must be in the form PICTURE ’(8)9'. 

The numeric value n represented by the last 
8 characters is used to access the n-th 
track of the file with a key identical to 
the character-string expression. n must be 
less than 2 24 . 


INDEXED FILES 

This file organization is supported by the 
DOS PL/I compiler and by the PL/I DASD 
macro instructions. Both methods may be 
used to create, access, and update files 
with the indexed-sequential file organiza¬ 
tion. For details on the PL/I DASD macro 
instructions refer to the publication IBM 
Sy st em /3 60 Dis k Operati ng System, PL/I DASD 
Macros, Form GC24-5059. 

Indexed-se qu en ti al Organizat io n 

An indexed-sequential file is one whose 
records are organized on the basis of a 
collating sequence determined by control 
fields (referred to as keys) that precede 
each block of data. The key for each block 
of data is from 1 to 255 bytes in length 
and contains the identifier of the last 
logical record in that block. Indexed- 
sequential files are contained in some 
space allocated on direct access volumes as 
prime areas and index areas. 

The indexed-sequential file organization 
gives the programmer great flexibility in 
the operations he can perform on a file. 
Using this scheme of file organization, he 
has the ability to 

• read or write (in a manner similar to 
that for sequential files) logical reco¬ 
rds whose keys are in ascending collat¬ 
ing sequence. 

• read or write random logical records. 

If a large portion of the file is being 
processed, reading records in this mann¬ 
er is somewhat slower than reading 
according to a collating sequence since 
a search for pointers in indexes is 
required for the retrieval of each 
record. 

• add logical records with new keys. The 
system locates the proper position in 
the file for the new record and modifies 
the indexes accordingly. 

Indexes. The ability to read and write 
records from anywhere in an indexed- 
sequential file is provided by indexes that 
are part of the file. There are always two 
types of indexes: a cy linde r index for the 
entire file, and a track_index for each 
cylinder. An entry in a cylinder or track 
index contains the identification of a spe- 
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cific cylinder or track and the highest key 
associated with that cylinder or track. 

The system locates a given record by its 
key after a search of a cylinder index and 
a track index within that cylinder. 

A third type of index, the ma ster index, 
is optionally available for very large 
files. A master index is generated only if 
the INDEXMULTIPLE option is specified in 
the declaration of the respective output 
file. The master index contains an entry 
for each track of the cylinder index. If a 
master index is present, the search in the 
cylinder index is limited to a search on 
one track. For usual applications, a mast¬ 
er index is not recommended if the cylinder 
index consists of less than four tracks. 

The track index always resides on the 
same extent as the prime data area. The 
cylinder and master index may reside on the 
same volume as the prime data area; howev¬ 
er, they may also reside on a different 
volume of a different DASD type. The 
cylinder index must be immediately adjacent 
to the master index, if any, on the same 
volume. Master and cylinder index must be 
completely contained in one volume. 

Inserticn_of_Records. A new record added 
to an indexed-sequential file is placed 
into a location on a track which is deter¬ 
mined by the value of its key field. If 
records were inserted in precise physical 
sequence, insertion would necessitate 
shifting all records of the file that have 
keys higher than that of the one inserted. 
However, an overflow area is available for 
each cylinder. Thus, a record can be 
inserted into its proper position with only 
those records on the track being shifted in 
which the insertion is made. 

Overflew A. re a. In addition to the prime 
area, whose tracks initially receive the 
records of an indexed-sequential file, 
there is an overflow area for records for¬ 
ced off their original tracks by insertion 
of new records. When a record is to be 
inserted, the records already on the track 
that are to follow the new record are writ¬ 
ten back onto the track after the new reco¬ 
rd. The last record on the track is writ¬ 
ten onto an overflow track. Figure 13 
illustrates this adjustment for addition of 
records to an indexed-sequential file whose 
keys are in a numerical ascending sequence. 

When this file is created, its records 
are placed on the prime tracks in the 
storage area allocated to the file. If a 
record, e.g., record 7, is to be inserted 
into the file, the indexes indicate that 
record 7 belongs on primary track 1. Reco¬ 
rd 7 is then written immediately following 
record 5, and records 8 and 10 are retained 
on this track. Since record 11 no longer 


fits, it is written onto an overflew track 
and the proper track index is adjusted to 
show that the highest key cn prime track 1 
is 10 and that an overflow record exists. 
When records 17 to 22 are added tc the end 
of the file, prime track 2 receives records 
17 to 21, but record 22 dees net fit and is 
written following record 11 on the overflow 
track. When record 9 is inserted, record 
10 is shifted to the overflow track after 
record 22. Note that records 10 and 11 on 
the overflow track are chained together tc 
show their logical sequence and to indicate 
that they belong to the same prime track. 


Initial Format of File 



Figure 13. Addition of Records to a 1- 
Cylinder, 3-Track Indexed- 
sequential File 


I ndependen t O ver fl ow Ar ea. An independent 
overflow area can be specified by an EXTENT 
statement (before the program is executed) 
to specify the area extent. If one cr more 
of the (cylinder) overflow area(s) become 
full, additional overflew records are writ¬ 
ten on the independent overflow area. This 
area may be on the same volume as the data 
records or on another volume, but must be 
contained on one single volume. The number 
of overflow tracks reserved on each cylind¬ 
er of the prime data area is determined by 
the CFLTRACKS option of the ENVIRONMENT 
attribute. 
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When using the PL/I DASD macro instruc¬ 
tions, two tracks per cylinder are reserved 
as overflow area. The number of extents 
per file with IT./I DASD macro instructions 
is restricted to ten. Note that the 
cylinder index constitutes a separate 
extent. 

The location of index areas, overflow 
areas, and the prime data areas on DASD 
devices are specified by means of DLBL and 
EXTENT statements. (Refer to the section 
File_Labels.) 

Record For ma t an d Key s. With indexed 
files, all records must be of fixed length 
(blocked or unblocked). Since only one key 
is permitted per block on DASD devices, the 
access method for blocked records requires 
that the key be embedded in the data field 
of the record. The location of the key 
within the record is specified'by the KEY- 
LOC option of the ENVIRONMENT attribute. 

The key must be embedded in the data field 
if records are blocked; it may be embedded 
if Lhe records are unblocked. If KEYLOC is 
specified to indicate embedding, the key is 
inserted automatically into the field dur¬ 
ing creation of the file or during addition 
of records to the file. 

When the PL/I DASD macros are used, a 
record key is located within each record, 
and one extra key is associated with each 
block. This key is identical with the 
highest (or only) record key in the block. 

No RECORD condition will be raised for 
retrieving or updating files. The IOCS 
module gets the record length during OPEN 
time from the format-2 file label as it was 
written at creation time. No checking is 
made between this entry and the entry in 
the DTF table. 

The KEY, KEYFROM, and KEY T Q O ptions for 
INDEXED_FiI.es. The expression or variable 
in the KEY7~KEYFROM, or KEYTO option of 
READ, WRITE, or REWRITE statements must 
result in or be a character string of the 
same length as the length specified in the 
KEYLENGTH option of the ENVIRONMENT 
attribute. 

N ot e: In indexed-sequential files, retri¬ 

eval, updating, and adding of records can 
be performed either sequentially or at ran¬ 
dom. However, indexed-sequential files can 
be created only sequentially. 

Note on Compat ibil ity. In OS PL/I, certain 
information contained in the key field or 
data field of INDEXED files is used to flag 
a record of that file as deleted. There¬ 
fore, if the user plans to create files 
with DOS PL/I and read and/or update them 
with OS PL/I, he should avoid keys or data 
that would cause OS PL/I to consider the 


record as deleted. For detailed informa¬ 
tion refer to the pertinent section of the 
OS PL/I Programmer's Guide,, Form C28-6594. 


£I§£_PRGMIZATICN 

As an example of a DASD organization, this 
section describes the 1316 disk pack used 
with the 2311 Disk Storage Drive. The 2316 
disk pack used with the 2314 Direct Access 
Storage Facility is organized very similar¬ 
ly. However, the 2316 disk pack consists 
of 11 disks with 20 surfaces on which data 
is recorded with double density. For 
further details (also on the 2321 Data Cell 
Drive) refer to the publications IBM 
Sy stem /3 6 0 C omponent De scrip tion s, Form 
GA26-3599 (for the 2314) and I BM System/360 
Com p onen t Descriptions, Form GA26-5988 (for 
the 2311 and 2321). 

The 2311 DASD uses 1316 disk packs as 
recording medium. One disk pack consists 
of 6 disks. The top surface of the upper 
disk and tne bottom surface of the lowest 
disk are not used, which leaves 10 surfaces 
for recording. Each disk surface contains 
203 concentric tracks. Track 1, 2, 3, 
etc., on each s^urface-is physically located 
below o/ acove track 1, 2, 3, etc., of the 
other surfaces. Therefore,, the correspond¬ 
ing tracks are referred to as 203 concentr¬ 
ic cy lind ers. 200 cylinders are used for 
actual recording; the remaining 3 are 
reserved. 

The 2311 is provided with one access arm 
equipped with 10 read/write heads. The 
heads are mounted vertically sc that data 
contained in one cylinder can be accessed 
without any mechanical movement. This, 
however, renders it necessary to internally 
switch from surface to surface within a 
cylinder in case one track (of a consecu¬ 
tive file) is completely filled. When a 
cylinder is filled,, reading or writing is 
resumed on the first track of the next 
cylinder. This technique minimizes the 
access-arm movement time. 

Thus,, a disk pack is thought of as con¬ 
sisting of 200 cylinders,, each cylinder 
consisting of 10 tracks. A consecutive 
part of cylinders (or tracks) set aside for 
usage by a specific file is referred to as 
an ext en t. An extent is defined by an 
EXTENT statement (refer to the section File 
L ab els). In case two or more files are to 
be accessed alternatingly, each individual 
file may be assigned a part of consecutive 
tracks per cylinder instead of full cylin¬ 
ders . For instance, tracks 0 to 4 of 
cylinders 10 to 99 may be assigned to 
FILEA, while tracks 5 to 9 of the same set 
of cylinders may be assigned to FILEE. The 
latter technique is referred to as split- 
cy linder technique. 
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Record 0 (Track Record 1 Record 2 

Descriptor) RO R1 R2 



Indicates the physical beginning of each track. 


• Figure 14. contents of a Track 


The information contained on a track is 
recorded in physical records (see Figure 
14). Each physical record consists of 2 or 
3 fields. 

The first field is a count field (C) 
identifying the record. The programmer is 
not concerned with this field. The second 
field is the key field (K). It has the 
length given in the KEYLENGTH option of the 
ENVIRONMENT attribute or in the KEYLEN 
operand of a PL/I DASD macro instruction 
and contains the key given in the KEY or 
KEYFROM Option. CONSECUTIVE and REGIONAL( 
1) files have no key field. The last field 
is the data field (D) and contains the 
block to be read or written. The first 
| record (Track Descriptor) of each track 
(RO) is not part of the information trans¬ 
ferred by a PL/I program but contains some 
statistical information. The home address 
(HA) is of no interest to the PL/I 
programmer. 


RECORD_TYPES 

These are five record types that can be 
handled by PL/I programs: 

fixed unblocked 
fixed blocked 
variable unblocked 
variable blocked 
undefined 


Fixed Un bl oc ke d Re cord s 

All records are of the same length. Each 
block contains exactly one record. The 
ENVIRONMENT option used is F(m). 


All records are of the sane length. Each 
block contains a fixed number of records. 
(Only the last block of a file may contain 
less records.) The ENVIRONMENT option used 
is F(m, n) . 


Va riable B lock ed Records 

The records are of variable length, each 
block containing a variable number of reco¬ 
rds. However, a maximum block length is 
specified. To enable the input/output con¬ 
trol routines to determine the lengths of 
blocks and records, the blocks contain 
extra fields that are not part of the actu¬ 
al record. The first 4 bytes of each block 
contain a block control field. Each record 
in the block is also preceded by a 4-byte 
record control field. The ENVIRONMENT 
option used is V(m), where m is the maximum 
block size, m must include the number of 
bytes required by both the records and the 
control fields. 


The D Compiler automatically supports 
variable-length blocked records if V(m) is 
specified, i.e., it always accommodates as 
many records in a block as will fit. 

If at the end of a track there is not 
enough space for the whcle block, the I/O 
routines write part of the block (but com¬ 
plete user-defined records) at the end of 
the track and shifts the remaining records 
onto the next track. Boundary problems may 
occur, however, if the rules for using the 
LOCATE statement with the SET option are 
not followed. 
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Variable U nb lo ck ed R ecords 

This is a real subset of variable blocked. 
With variable unblocked records, the value 
of in in V(m) is 8 higher than the largest 
possible record in the file. Variable 
blocked and variable unblocked records may 
be intermixed. 

Undefined Re cords 

The records are of variable length. Each 
block contains one record. No control 
fields are used. The ENVIRONMENT option 
used is U Cm). 

Res trictio ns 

For the restrictions regarding the block 
length refer to Appendix J under Blo cksize 
Options. 

A block has the meaning that the physic¬ 
al storage medium is advanced one block 
after the corresponding operation has been 
performed. In the case of punched cards, 
for instance, this implies that one card is 
read or punched. This, in turn, implies 
that the remainder of the card is ignored, 
and the next block starts with transmission 
of column 1 of the next card in case a 
block length of less than 80 bytes is spe¬ 
cified for a card file. 


INPUT/ODT PUT P ROCESSING 
ACCESS METHODS 

Since records in files declared with the 
CONSECUTIVE option are identified merely by 
the sequence in whicn they are created,, the 
only possibility to read, write,, or update 
records in such files is to sequentially 
process the file from its starting point. 
This procedure is referred to as the 
sequential acces s method, and files so 
accessed have the attribute SEQUENTIAL. 

In other files, the records are identi¬ 
fied by keys. In this case, each individu¬ 
al record can be accessed by use of the key 
regardless of the physical location of the 
record. This procedure is referred to as 
the direct acces s method, and a file so 
accessed has the attribute DIRECT. 

No te: Indexed-sequential files may be read 

or updated either sequentially or direct. 

Not e: If twc or more files are simul¬ 

taneously open on the same physical non- 
DASD device or DASD extent, the order of 


access to the files is unpredictable. Read 
and punch feed of a 2540 Card Read-Punch 
count as two different devices. For 
example,, a read and a punch file cannct be 
open at the same time using the same 1442 
or 2520 Card Read-Punch. As another 
example, if there is a record file assigned 
to a printer and the standard system - 
STREAM - file uses the same printer, both 
files have their own buffers and print 
independently of each other, i.e,, the 
printed lines will not necessarily appear 
in the same sequence as the WRITE and PUT 
statements are executed. 


BUFFERING 

A buffer is a part of storage used to 
accommodate data to be read or written. 
Buffers are used to allow transmission of 
data asynchronously to the program flew. 

Files with the UNBUFFERED attribute 
allow no overlapping of input/output opera¬ 
tions. In files declared with the EUFFERED 
attribute, execution of I/O operations is 
overlapped if the option BUFFERS(2) is spe¬ 
cified in the ENVIRONMENT attribute. For 
files declared with the BUFFERED attribute,, 
the buffers can be made available for use 
as work areas by using the READ statement 
with the SET option or the LOCATE state¬ 
ment, i.e., the based record variables are 
located directly in the buffers. 

Tape files with the UNBUFFERED attribute 
must also have the NCLAEEL attribute. 
Therefore, no multi-volume files or 
alternate-tape specifications are 
permitt ed. 

If OUTPUT is specified in addition to 
UNBUFFERED and NOLABEL, tape labels are net 
checked and not overwritten. 

Disk input and update files with the 
UNBUFFERED attribute are opened with the 
o ut p ut OPEN routine. Therefore, the 
expiration date for such files must be 
lower than the current date. 

Although buffering attributes are not 
permitted for DIRECT files, one buffer is 
assigned to REGIONAL and INDEXED DIRECT 
files. The minimum length of the buffer is 
the record length. The maximum length of 
the buffer is the record length + keylength 
+ 8 for REGIONAL files and INDEXED DIRECT 
INPUT files. For INDEXED DIRECT UPDATE 
files, the maximum length of the buffer is 
the block length + keylength +8+10 (for 
the sequence link field). 
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FILE L ABELS 


A tape reel or disk pack may contain infor¬ 
mation that is required for a certain 
period of time. Therefore, each file (tape 
reel or disk extent) must be checked for 
its expiration date. In addition, a check 
must be performed to determine if the prop¬ 
er volume has been mounted for processing. 
These checks are performed by reading and 
comparing special records that are con¬ 
tained in the respective volume. These 
special records, which are referred to as 
labels, are processed whenever an CPEN or 
CLOSE statement is executed for a particu¬ 
lar file. 

The label information is furnished by 
means of special Job Control statements, 
which are described later in this section. 
There are two types of labels: volume 
labels and file labels. 

Volume labe ls are used to identify the 
volume (tape reel or disk pack). During 
execution of the OPEN routine, the volume 
serial number is compared against the 
information supplied to the Supervisor, 
/olume labels can be created by means of 
IBM-supplied utility programs. 

F il e labe ls describe the file to be pro¬ 
cessed by the program and indicate whether 
cr not the file must be retained for a cer¬ 
tain period of time. When an OPEN state¬ 
ment is encountered, the information con¬ 
tained in the file labels of input and upd¬ 
ate files is compared against the informa¬ 
tion supplied to the Supervisor. If a mis¬ 
match is found, a message to the operator 
is printed. When an CPEN statement is 
encountered for an output file, the expira¬ 
tion date in the file label is checked 
against the date stored in the communica¬ 
tion region of the Supervisor. If the 
expiration date nas been neither reached 
nor passed, a message to the operator is 
printed and the execution of the program is 
interrupted. In case the expiration date 
has been reached or passed, a new file 
label is created from the information supp¬ 
lied through the control cards. The old 
file label is overwritten by the new file 
label. 

Labeled tape files have two types of 
labels: header_labels and tra iler label s. 

The header label precedes each file and 
defines it. The trailer label is written 
at the end of the file. It furnishes the 
information required to determine whether 
the end of the file has been reached or 
whether the file is continued on another 
volume. Tape files may also be unlabeled. 


This condition is specified by the option 
NOLABEL in the ENVIRONMENT attribute. 

Disk files must be labeled. Disk file 
labels do not precede or follow the indivi¬ 
dual file. They are contained in a special 
region referred to as the VTOC (Volume 
Table Of Contents). Disk labels are 
updated either during execution of the 
CLOSE routine or when an end-of-extent is 
reached. Switching from volume to volume 
for multi-volume files is effected automat¬ 
ically without any programming effort. 

Note: Punched-card and print files must 

net be labeled. 

For detailed information and restric¬ 
tions on label processing see the SRL pub¬ 
lications describing the DOS/TOS data mana¬ 
gement concepts, the DOS/TOS Supervisor and 
I/O macro instructions, and the DOS system 
control and service programs. 


RESTRICTIONS CN SPECIAL PL/I FILES 

PL/I does not provide for label processing 
of UNBUFFERED files. However, file labels 
are checked for expiration (also if INPUT 
is specified) and cleared,. The volume 
label is maintained. 

No provision has been made for label 
processing of the standard PL/I files SYSIN 
and SYSPRINT. 

As far as label processing is concerned, 
UPDATE and INPUT files are handled in the 
same manner. 


JOB CONTROL STATEMENTS 

A set of Job Control statements is required 
for each labeled file. This set of state¬ 
ments must be in a specific sequence and 
immediately precede the // EXEC statement 
for the job step in which the file is 
processed. 

Note: DLBL and EXTENT Job Control state¬ 

ments for SYSIPT, SYSLST, or SYSPCH must 
precede the corresponding permanent ASSGN 
commands. 

The sequence of Job Control statements 
for disk labels is as follows: 

// DLBL 

// EXTENT (one or more) 
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The Job Control statement for tape 
labels is as follows: 

// TLBL 

The syntax rules are the same as those 
for the ether Job Control statements. 
Trailing commas not followed by an operand 
may be suppressed. 

Note: The former disk and tape label Job 

Control statements DLAB, VOL, XTENT, and 
TPLAE may still be used. However, the old 
and new disk label statements must not be 
intermixed, i.e., XTENT is associated with 
DLAB and VOL, and EXTENT is associated with 
DLEL. 


The DLBL Sta teme nt 

The DLBL statement furnishes the disk file 
label information. The format of this sta¬ 
tement is as follows: 

// DLBL filename,t'file-ID'],[date],[codes] 

The meaning and format of the operands is 
described below: 

filename is identical to the name of the 
PL/I~file. 

'f ile-I D * is the name of the file that is 
recorded on the disk drive as an identifi¬ 
cation of the file. It may comprise from 1 
to 44 bytes of alphameric data. If less 
than 44 characters are used,, the field is 
left-justified and padded on the right with 
blanks. If this field is omitted, the file 
name is used as file-ID. 

d at e is a field of one to six numeric 
characters. Two formats are possible. The 
first format is yy/ddd, which indicates the 
expiration date of the file for output or 
the creation date for input. (The day of 
the year may have from one to three charac¬ 
ters.) Optionally,, a 1- to 4-digit reten¬ 
tion period may be specified for output 
files. If this operand is omitted,, a 7-day 
retention period is assumed for output 
files. For input files, no checking is 
performed if this operand is omitted or if 
a retention period is specified. 

codes is a 2- or 3-character field indicat¬ 
ing the type of file label as follows: 

SD for Sequential Disk, 

DA for REGIONAL files, 

ISC fop Indexed Sequential using Load Cre¬ 
ate, or 

ISE for Indexed Sequential using Load 
j Extension, Add, or Retrieve. 


SD is assumed if this parameter is 
omitted. 

For output files, the current date is 
| used as the creation date. 

The EXTENT Statement 

The EXTENT statement defines an extent of a 
DASD file. Cne or more EXTENT statements 
must follow each DLBL statement. The 
EXTENT statement has the format 

// EXTENT [SYSxxx], [ssssss], [t], [nnn ], 
[rrrrr], [mmmmm],[dd] 

The meaning and format of the operands is 
described below. 

SYSxxx (symbolic unit) is a 6-character 
field that indicates the symbolic unit of 
the volume to which this extent applies. 

If this operand is omitted, the symbolic 
unit of the preceding EXTENT statement is 
used. 

For multi-volume REGIONAL files the sym¬ 
bolic unit numbers in the corresponding 
EXTENT statements must be in direct ascend¬ 
ing sequence (e.g., SY-S006,, SYS007,, 

SYS008). 

ssssss (serial number) is a field of cne to 
six characters that indicates the volume 
serial number of the volume to which this 
extent applies. If less than six charac¬ 
ters are used, the field is right-justified 
and padded to the left witn zeros. If this 
operand is omitted, the volume serial numb¬ 
er of the preceding EXTENT statement is 
used. If no volume serial number was pro¬ 
vided in that statement,, the serial number 
will not be checked. (Files may be des¬ 
troyed in this case due to mounting of the 
wrong volume.) 

t (type) is a 1-digit field indicating the 
type of extent as follows: 

1 - data area (no split cylinder) 

2 - independent overflow area (for indexed 

sequential file) 

4 - index area (for indexed sequential 
file) 

8 - data area (split cylinder) 

Type 1 is assumed if this operand is 
omitted. 

nnn (sequence number) is a field of one to 
three characters that contains a decimal 
number from 0 to 255. The decimal number 
indicates the sequence number of the extent 
within a multi-extent file. For indexed 
files, the sequence number 0 is always 
associated with the master index. Thus, if 
a master index is specified, the sequence 
number for indexed files starts with 0; 
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otherwise, i.e., if no roaster index is 
used, the first extent of an indexed file 
has the sequence number 1. The extent 
sequence number for all other types of 
files begins with 0. If this operand is 
omitted for the first extent of ISFMS 
files, the extent is not accepted. This 
operand is not required for SD and DA. 
files. 

rrrrr (relative track number) is a field of 
one to five characters that indicates the 
sequential number of the track (relative to 
zero) where the data extent is to begin. 

For instance, track 0 of cylinder 150 on a 
2311 has the relative track number 1500. 

If this operand is omitted on an ISFMS 
file, the extent is not accepted. The 
operand is not required for SD or DA input 
files (the extents from the file labels are 
used in this case). 

mmmmm (number of tracks) is a field of one 
to five characters that indicates the numb¬ 
er of tracks to be alotted to the file. 

The operand may be omitted for SD or DA 
input files. For split cylinders, the 
number of tracks must be an even multiple 
of the number of tracks per cylinder speci¬ 
fied for the file. 

dd (split cylinder track) is a field of one 
or two digits that indicates the upper 
track number for the split cylinder in SD 
files. 

I Note: For INDEXED and REGIONAL files the 

I LELTYP card must also be present. 


The TLB L S tateme nt 

The TLBL statement contains file label 
information for tape label checking and 
writing. Its format is as follows: 

// TLBL filenarce,['file-ID*],[date], 
tfile-serial-nuraberl, 
[volume-sequence-number], 

[file-sequence-number], 
[generation-number!, 

[version-number] 

The meaning and format of the operands 
is described below. 

filename is a field of one to six charac¬ 
ters identical to the name of the PL/I 
file. 

*fi le- ID' is a field of one to 17 charac¬ 
ters, contained within apostrophes,, that 
indicates the name associated with the file 
on the volume. This operand may contain 
embedded blanks. If this operand is 
omitted for output files, fil ena me is used 
instead. If this operand is omitted for 
input files, no labels are checked. 


da te is a field of one tc six numeric 
characters. Two formats are possible. The 
first format is yy/ddd, which indicates the 
expiration date of the file or output or 
the creation date for input. (The day of 
the year may have from one to three charac¬ 
ters.) Optionally, a 1- to 4-digit reten¬ 
tion period may be specified for output 
files. If this operand is omitted,.a 0-day 
retention period is assumed for output 
files. For input files, no checking is 
performed if this operand is omitted or if 
a retention period is specified. 

file^serial-number is a field of one to six 
characters that indicates the volume serial 
number of the first (or only) reel of the 
file. If less than six characters are spe¬ 
cified, the field is right-justified and 
padded with zeros. If this operand is 
omitted for output files, the volume serial 
number of the first (or cnly) reel of the 
file-is used. If this operand is omitted 
on input, no checking is performed. 

vol um e- se q uence-nu m be r is a field of one to 
four digits. The sequence numbers cf the 
volumes of a multi-volume file must be in 
ascending order. If this operand is 
omitted for output files,, ECD 0001 is 
assumed. No checking is performed if this 
operand is omitted for input files. 

file-se q uence- nu mb er is a field of one to 
four digits. The sequence numbers of the 
files of a multi-file volume must be in 
ascending order. If this operand is 
omitted for output files,, ECD 0001 is 
assumed. No checking is performed if this 
operand is omitted for input files. 

ge ne ration-number is f field of one to four 
characters that modifies the file-ID, If 
this operand is omitted for output files, 
ECD 0001 is assumed. No checking is per¬ 
formed if this operand is omitted for input 
files. 

version-nu mb er is a field of one or two 
characters that modifies the generation 
number. If this operand is omitted for 
output files,, BCD 01 is assumed. Nc check¬ 
ing is performed if this operand is omitted 
for input files. 

N otes : 

1. For output files, the current date is 

I used as the creation date. 

2. As far as label processing is con¬ 
cerned, UPDATE files are handled the 
same as INPUT files. 

Ex am pl es f orlabel State me nts 

Figure 15 (top) shows an example cf DLBL 
and EXTENT statements used for a sequential 
2311 disk input file. The statements iden¬ 
tify the file declared as MASTIN in a PL/I 


File Labels 33 










program. Its external identification 
(stored in the VTOC) is MASTER-INVENTORY- 
FILE . No further entries in the DLBL sta¬ 
tement are required for an input file. 

The logical unit used for the file is 
SYS005 and the volume identification of the 
1316 disk pack to be mounted on SYS005 is 
VOL172. No further EXTENT statement 
operands are required. 

Figure 15 (middle) shows an example of 
the creation of an indexed sequential file 
by usage of the PL/I DASD macro LODIS. In 
addition to the previous example, the 
expiration date of the file (March l'„ 1969) 
and the code ISC is specified in the DLBL 
statement. There are two EXTENT state¬ 
ments. The first one specifies the extent 
of the cylinder index,, which is extent 1. 

It starts at track number 1000 (i.e., 
cylinder 100, track 0) on logical unit SYS- 
004 and consists of 10 tracks. The data 
area, which is the second extent, resides 
on a different logical unit: SYS005. The 
extent number need not be specified in this 
case,, but the delimiting comma must be 
written. 

Figure 15 (bottom) gives an example of a 
TLEL statement. The file is assumed to be 
an input file. It is no multi-file volume 
and a version number is not used. Since it 


is an input file,, no date entry has- been 
specified. 


MULTI-FILE VOLUMES AND EACKWARDS FILES 

The handling of multi-file volumes on the 
2311 requires no special preparation since 
all file labels are available when the file 
is opened. When using tape files, the tape 
must be positioned so that the label can be 
checked during execution of the OPEN rou¬ 
tine. Positioning is not required for the 
first file on the tape, because it is auto¬ 
matically positioned unless the LEAVE 
option has been specified. For correctly 
positioning the tape for the second,, third* 

. ..„ nth file,, the LEAVE option must be 
specified in the ENVIRONMENT attribute. 

This prevents the OPEN routine from rewind¬ 
ing the tape reel. A labeled tape file has 
the format shown in Figure 16. 

To position a tape reel that contains 
labeled files at the nth file, the tape 
reel must first be rewound and then spaced 
forward in such a manner that the first 
information read is the header label of the 
nth file. The Job Control statement used 
to control .tape drive operations has the 
following form: 

// MTC code,SYSxxx[,nn] 



Figure 15. Examples for Disk and Tape Label Statements 
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Figure 16. Format of Labeled Tape File 
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The operand ce de is one of the following 
function codes: 


BSF backspace file 
BSR backspace record 
ERG erase gap 
FSF forward space file 
FSR forward space record 
REW rewind 
RUN rewind and unload 
WTM write tape mark 

Forward-space-file and backg£j££^^ile 
cause the read head to be positioned at the 
recordfc^jKJwing^th^ that is 

ene oudpsreef^ 

The operand SYS xx x is the logical device 
address of the tape drive on which the per¬ 
tinent tape reel is mounted. 

The operand nn is a decimal number from 
01 through 99 that specifies the number of 
times the specified function is to be per¬ 
formed. If this field and the comma pre¬ 
ceding it are omitted, nn is assumed to be 
01 . 

The following example shows the MTC sta¬ 
tements required to position the tape reel 
on SYS006 at the header label of the third 
data file. 

// MTC REW,SYS006 
// MTC FSF,SYS006, 06 

In unlabeled tape volumes, the end of 
each file is indicated by a tape mark. A 
tape mark may or may not precede the first 
file. Unlabeled tape files written by PL/I 
programs have a tape mark preceding the 
first file unless NOTAPEMK is specified in 
the ENVIRONMENT attribute. 

If a magnetic tape file has the BACK¬ 
WARDS attribute, the read head must be 
positioned behind the trailer label of this 
file before the file is opened. In case a 
file has been written and closed just 
before it is re-opened to be read back¬ 
wards, it is positioned correctly if the 
LEAVE option was specified for the written 
file. Unlabeled BACKWARDS files must start 
with a tape mark. 

If an input file of a multi-file volume 
declared with the LEAVE option has been 
closed and the next file of this volume is 
to be opened (or the same file is to be 
opened in the reserve direction), the mag¬ 
netic tape is positioned correctly only if 
the ENDFILE condition was raised prior to 
the closing of the file. In the case of 
STREAM input, additional (dummy) GET state¬ 
ments must be issued to synchronize the 
input stream with the ENDFILE condition. 

To prevent raising of the CONVERSION condi¬ 


tion, the variables read by these dummy GET 
statements should be of the character type. 


LINK-EDITING AND LABELED FILES 

Before a program that uses and/or processes 
labeled files can be processed by the Lin¬ 
kage Editor, the Linkage Editor must be 
instructed to reserve a label area. This 
area must precede the area occupied by the 
program, except in the case of CONSECUTIVE 
disk files where no such area is required. 
To reserve the label area, a special Job 
Control statement must precede the state¬ 
ment // EXEC LNKEDT. The type of statement 
used depends on whether the program runs 
under control of the Disk Operating System 
or of the Tape Operating System. 


Job C ont rol St atements f or DOS 

The format of the Job Control statement for 
processing disk files with the REGIONAL or 
INDEXED option is as follows: 


// LELTYP NSD(nn) 

The operand nn is the largest number of 
extents to be used by any single file. 

Note that this number must be enclosed in 
parentheses. 

Note that nn must specify the number of 
EXTENT cards and not the EXTENTNUMBER in 
the ENVIRONMENT attribute. 

The format of this statement for the 
processing of labeled tape files is as 
follows : 

// LBLTYP TAPE 


Note: This statement is not required for 

processing of labeled tape files if REGION¬ 
AL files are used at the same time. 


Job Co nt rol St a tements f or TOS 

The format of the Job Control statement for 
the processing of labeled tape files is as 
follows: 

// LELTYP TAPE(nn) 

The operand nn is the number of labeled 
tape files to be processed. 

Figure 17 shows a source deck including 
Job Control statements for processing one 
REGIONAL file with two extents, and two 
tape files. 
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// JOB INVENTRY 
//OPTION LINK / LIST,ERRS / 60C 
PHASE UPDATE,* 

// EXEC PL/I 

INVENTRY: PROCEDURE OPTIONS (MAIN); 

DECLARE MASTER FILE UPDATE RECORD ENVIRONMENT 
(REGIONAL(3)....)...., 

BACKUP FILE OUTPUT ENVIRONMENT (MEDIUM 
(SYS007,2400).... 

EXEPT FILE OUTPUT ENVIRONMENT (MEDIUM 
(SYS008,2400)....)...., 

END; 

/* 

ENTRY 

// LBLTYP NSD(02) 

// EXEC LNKEDT 

// DLBL MASTER/MASTER INVENTORY FILE',,DA 
//EXTENT SYS005,1427 
//EXTENT SYS006,1431 

//TLBL BACKUP/BACKUP INVENTORY', 100,2711,,, 10,8 
//TLBL EXEPT/EXCEPTION INVENTRY',30,2614,,,10,0 
// EXEC 
data 

/* 

A 


Figure 17. Sample Source Deck with Control 
Statements 


CATALOGING OF LABEL INFORMATION 

For DOS, the DLEL, EXTENT, and TLBL state¬ 
ments for sequential files may be cataloged 
as standard files so that the programmer is 
relieved from issuing the control cards 
with each execution of the program. For 
details refer to the SRL publication 
describing the DOS system control and sys¬ 
tem service programs. 


PROGRAM - LAEEL COMMUNICATION 

Figure 18 shows the communication between a 
PL/I source program, the object program. 

Job Control statements, and a 2311 disk 
unit with a 1316 disk pack. 

The LIOCS (Logical.Input/Cutput Control 
System) table produced by the PL/I compiler 
somewhere contains the file name as a 
character string. The communication 
between this table and the actual file 
extent(s) is established by storing the 
extent information in the table during 
execution of the OPEN statement. 

The set of label statements (DLEL, 
EXTENT) to be used for opening the file is 
the one whose DLBL statement contains the 
same file name as stored in the character 


string of the LIOCS table. The logical 
device address is taken from the EXTENT 
card. The physical unit — in this case a 
2311 disk drive -- is then determined from 
the standard assignment cr from the tem¬ 
porary assignments, respectively. The 
serial number field of the EXTENT statement 
is compared against the volume label of the 
1316 disk pack to determine whether the 
right pack has been mounted. 

The remaining action depends on the file 
type. For INPUT or UPDATE files,, the VTOC 
on the disk pack is searched for a label 
matching the file-ID issued in the DLBL 
statement (MY DEAR FILE in Figure 18.) 

When a matching label is found, the remain¬ 
ing file information is checked against the 
label information in the VTOC., and the 
extent information is passed to the LIOCS 
table to allow proper addressing of the 
blocks to be transferred. 

In case of OUTPUT files, all existing 
labels in the VTOC are checked against 
overlap with the file to be created. The 
file is opened only if there is no overlap 
with any unexpired file. The new label is 
then written into the VTCC. 

In case of CONSECUTIVE multi-volume 
files, one volume will be opened at a time, 
i.e. , the second volume is opened when the 
last extent of the first volume has been 
processed, etc. Opening cf the second and 
following volumes is automatic. Thus, no 
explicit OPEN statement need be given. Fcr 
all other files, all volumes will be opened 
at once. Therefore, all volumes to be pro¬ 
cessed must be mounted at the same time in 
this case. 

The handling of tape label information 
is similar. 


ASSIGNMENT OF SYSTEM FILES TO DISK 

In systems with at least 24K positions cf 
main storage, the system logical units SYS- 
IPT, SYS1ST and/or SYSFCH may be assigned 
to an extent of 2311 or 2314 disk storage. 

It should be noted that the assignment 
of system files to disk requires operator 
intervention. For a complete description 
(also of ASSGN and CLOSE commands) refer to 
the SRL publication System/360 Disk Operat¬ 
ing, System Control and System Service Pre- 
grams, Form GC24-5036. 

The PL/I programmer should be aware of 
the fact that the PL/I standard files SYSIN 
and SYSPRINT are assigned to SYSIPT and 
SYSLST respectively. since these files 
cannot be closed by the programmer and only 
one PL/I file can be opened for one System 
logical unit on Disk at any one time, the 
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use of GET or PUT statements without the 
FILE option should be avoided if there are 
user-declared files for SYSIPT and SYSLST. 
In order to avoid implied usage of SYSLST 
for comments as a result of error condi¬ 
tions, it is recommended to use the ONSYS- 
LOG option in the OPTIONS attribute of the 
MAIN procedure. 

The assignment of system logical units 
to disk storage drives must be permanent. 
The operator ASSGN command must be used 
instead of the programmer statement 
(// ASSGN). Temporary assignments (via the 
// ASSGN statement) to other device types 
are permitted. 

t 

Note; The system generation parameter SYS- 
FIL is required to allow assignment of sys¬ 
tem logical units to a disk drive. 


In the EXTENT statement, type may be 1 
(data area, no split cylinder) or 8 (data 
area, split cylinder). There is no unique 
requirement for the remaining operands of 
the EXTENT statement. 


The ASSGN command must be one of the 
following: 


1. ASSGN SYSIN,X'cuu' (for a combined 
SYSRDR/SYSIPT file). 


2. ASSGN SYSRDR,X'cuu' (for SYSRDR only). 


3. ASSGN SYSIPT,X'cuu' (fcr SYSIPT only). 


System input and output files are 
assigned to disk by providing a set of DLBL 
and EXTENT statements and then submitting a 
permanent ASSGN Command. The set of dlbl 
and EXTENT statements preceding the ASSGN 
command may contain only one EXTENT 
statement. 


4. ASSGN SYSPCH, X’CUU' (for SYSPCH). 

5. ASSGN SYSLST,X'cuu' (for SYSLST). 

Note that all must be permanent 
assignments. 


The filename in the DLBL statement 
(which will be associated with the SYSxxx 
entry from the accompanying EXTENT state¬ 
ment) must be one of the following: 

IJSYSIN for SYSRDR, SYSIPT, or the 
combined SYSRDR/SYSIPT file SYSIN 

IJSYSPH for SYSPCH 

IJSYSLS for SYSLST 

In the DLBL statement, the codes operand 
must specify SD (or blank, which means SD) 
to indicate sequential DASD file type. 


System logical units assigned to disk 
must be closed by the operator. The opera¬ 
tor CLOSE command must be used to specify a 
system input or output file which has been 
previously assigned to a 2311 cr 2314. The 
optional second parameter (X'cuu') of the 
CLOSE command may be used (instead cf an 
ASSGN command) to assign the system logical 
unit to a physical device. The system will 
notify the operator that a CLOSE is 
required when the limit of the file has 
been exhausted. If a program attempts to 
read or write beyond the limits of the 
file, the program will be terminated and 
the file must be closed. 
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LINK AGE CONVENTIONS 


The user of PL/I programs is not concerned 
with internal linkage during activation and 
de-activation of blocks. To increase the 
capability and/or efficieny of his program 
he may, however, wish to combine modules 
written in the PL/I Subset language with 
modules written in Assembler language. For 
example, the programmer may wish to make 
use of the checkpoint facility. Since 
there is no checkpoint facility in PL/I, 
the user may call a subroutine written in 
Assembler language. Calling of subroutines 
written in FORTRAN or COBOL is not 
permitted. 


Re g i ster Conve ntions 

Some registers may have to be used during 
the execution of the called program. The 
user must save the contents of these regis¬ 
ters by providing a save area. The address 
of the save area is contained in register 
13. The general registers involved in 
linking a called procedure to the main pro¬ 
gram are listed in Figure 19. Note that 
floating-point registers are not saved by 
the called subroutine. 


r- t- 

I REGISTER!CONTENTS 


Address of an argument list. 

This list contains the addresses 
of the arguments in the sequence 
stated in the argument (or para¬ 
meter) list in the CALL, PROCE¬ 
DURE, or ENTRY statement. Each 
argument requires one full-word 
on full-word boundary. In func¬ 
tion references, the argument 
list is immediately followed by 
the address of the field where 
the information computed by the 
subroutine is stored. 


-1 


13 


Address of the save area 


14 


Address to which the called sub¬ 
routine returns when execution 
has been completed. 


15 


Branch address, i.e., the 
address in the called subroutine 
to wnich control is transferred 
for execution. 


Figure 19. General Registers Used for 

Linking to a Subroutine Writ¬ 
ten in Assembler Language 


N ot e: If control is transferred from an 

Assembler routine to another PL/I subrou¬ 
tine, registers 7 and 8 must contain the 
same values as when control was trans¬ 
ferred to the Assembler routine. 

C alli ng 

Assume that register 13 has been set ear¬ 
lier in the program. To accomplish 
correct linkage, three additional regis¬ 
ters (1„ 14, and 15) must be set. Regist¬ 
er 1 need not be set if no arguments are 
passed on and the call is net a function 
reference. The three different sequences 
that may be used to establish the required 
linkage between the main program and the 
called subroutine are shown in Figure 20. 

Note: The DOS/TOS macro instruction CALL 

may be used to facilitate programming in 
cases 2 and 3 shown in Figure 20. 


L 

15, =V(subroutine) 

BAIR 

14 ,,15 

CNOP 

2,4 

L 

15,=V(subroutine) 

LA 

14,* + 6+ 4*n 

BALR 

1 ,15 

DC 

A(addressl) 

DC 

A(address2) 

DC 

A(addressn) 

L 

15, =V(subroutine) 

L 

1,,=A (listaddr) 

BALR 

14, 15 

listaddr DC 

A(addressl) 

• • • 



Figure 20. Three Different Codings fer 
Linking the Main Program and 
the Called Subroutine 

Saying 

Each calling program must provide a save 
area to store the contents of the general 
registers used by the called subroutine. 
When communicating with PL/I, the minimum 
length of this area is 20 full-words (80 
bytes). The area may be expanded for 
storing intermediate results or data of 
the storage class AUTOMATIC. This storage 
is called the DSA (Dynamic Storage Area). 
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^INDIC is a full-word containing the information on the status of 
statement prefixes. 

2 Modules written in PL/I are initialized by IJKSZCN. 


Figure 21. Layout of the First 20 Words of the DSA of a Calling Program 


Figure 21 shows the layout of the first 
20 full-words of the DSA of a calling pro¬ 
gram. Assume that register 13 contains 
the address of the first word of the DSA. 


The first instruction of a subroutine 
written in Assembler language must save 
the general registers 14, 15, 0, , 12. 

The DOS/TOS macro instruction SAVE can be 
used for this purpose. These registers 
must be saved even if their contents are 
not destroyed during execution of the sub¬ 
routine. otherwise, ON-conditions that 
may occur might not be handled correctly. 
The next steps to be taken are: 

1. Store the contents of register 13 in 
word 2 of the subroutine save area. 

2. Ensure that word 3 of the save area of 
the calling PL/I program is not des¬ 
troyed by the Assembler subroutine. 

3. Set register 13 to the address of the 
subroutine save area. 

4. Ensure the addressability in case 
register 15 is destroyed during execu¬ 
tion of this module. 


Returnin g 

Before returning control from the subrou¬ 
tine to the calling program,, the contents 
of all registers must be restored. This 
is done as follows: 

L 13,4(13) RESTORES REG13 

LM 14,12,12(13) RESTORES REG14-12 
BR 14 

The last two instructions may be replaced 
by COS/TCS macro RETURN (14,12) 

The usage of LABEL parameters for 
returning from subroutines written in 
Assembler language necessitates a library 
call instead of a RETURN macro instruc¬ 
tion. Therefore, the address of the LABEL 
parameter must be loaded into register 1. 
The routine IJKSZCP must be called next. 
The contents of register 13 are automatic¬ 
ally saved by this routine. Therefore, 
they must not have been changed 
previously. 

The following example shows how a 
library call can be used to return from a 
subroutine written in Assembler language 
by means of LABEL parameters. 
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L 1,8(3) 

* LOADS ADDRESS OF TABLE VARIABLE 
CALL IJKSZCP 

Note; The library subroutine IJKSZCN must 
be used to initialize the DSA if LABEL 
parameters are used. 


CORRELATION BETWEEN PL/I AND ASSEMBLER 
MODULES 

Modules written in the PL/I Subset lan¬ 
guage may call modules written in Assembl¬ 
er language and vice versa. However, if 
the program is combined of both PL/I and 
Assembler modules, one PL/I module with 
the attribute MAIN is required for correct 
initialization of the PL/I modules. Note 
that this MAIN procedure must be the first 
module to be executed. 


Calling an Ass embl er M o du le 

A module written in Assembler language is 
called according to the rules for calling 
external procedures either by means of a 
CALL statement or by means of a function 
reference. The Assembler module must 
satisfy all linkage rules given in this 
section. If the Assembler module does not 
call any other module, it must provide a 
minimum save area of two full-words. The 
4-byte field INDIC pointed to by bytes 1 
to 3 of the first word must contain the 
following information; 

Eyte 3 contains the standard prefix 
option switches, whereas byte 2 contains 
the actual prefix option switches. If 
INDIC is not initialized by the library 
subroutine IJKSZCN, the contents of byte 3 
must be moved into byte 2 by the prologue 
of the module. The contents of byte 2 may 
be changed during execution of the module. 

Eits 0 to 5 are used as switches with 
the following functions; 

0 ZERODIVIDE 

1 UNDERFLOW 

2 OVERFLOW 

3 FIXEDOVERFLOW 

4 CONVERSION 

5 SIZE 

If the respective tits are on (1), the 
corresponding ON-condition is enabled. If 
they are off (0), the ON-condition is 
disabled. 

If bit 7 is on, the PL/I interrupt¬ 
handling routine interprets a hardware 
fixed-point or decimal overflow condition 
as a SIZE error. If bit 7 is off, the 
condition is interpreted as FIXEDOVERFLOW. 


Note; Word 2 of the save area and regist¬ 
er 13 must be correctly initialized prior 
to the occurrence of any interrupt. 

Ass emble r Module Ca llin g PL /I Module s 

Assembler modules that directly or 
indirectly call PL/I modules must provide 
a full DSA with a minimum of 20 full- 
words . This can be done by using the PL/I 
library subroutine IJKSZCN, which creates 
the DSA and provides correct handling of 
register 13. The subroutine sets the 
words 1 ( , 2, 3, 19, and 20 of the DSA. 

Word 20 accommodates the contents of 
register 0 at the time when IJKSZCN was 
called. In internal PL/I procedures, this 
will be the address of the DSA of the 
statically embracing block. Word 3 con¬ 
tains the address of the storage location 
where IJKSZCN will construct the next DSA 
in case the present module calls another 
module. 

Calling IJKSZCN destroys register 5. 
Therefore, register 5 should net be 
initialized by an Assembler module before 
IJKSZCN is called. IJKSZCN is called as 
shown below: 

LA 1,PBL 

L 15,=V(IJKSZCN) 

BALR 14, 15 

PEL is an 8-byte area containing the fol¬ 
lowing information: 

DS OF 

PEL DC X* 0 3* 

DC AL3 (INDIC) 

DC A(length) 

Note: Length is the length of the DSA in 

byt es. 

The calling sequence for IJKSZCN should 
be preceded only by the SAVE macro 
instruction and two LR instructions pro¬ 
viding for the addressability of the 
module itself and the argument list. 

P assing Argum e nts 

The argument addresses in the argument 
list point to the first byte of the data, 
array* or structure to be passed on. The 
address of a V-type constant is passed for 
an ENTRY argument. The word following the 
V-type constant contains a pointer to the 
DSA of the block statically embracing the 
passed procedure if the passed procedure 
is internal. 

To allow for addressing of AUTOMATIC 
variables contained within the embracing 
block of an entry parameter,, a call to the 
entry parameter should have the format 
shown in Figure 22. 
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Figure 22. Format of Call to Entry Parameter 


If FILE arguments are used, the address 
in the argument list points to the file 
appendage. In addition to the information 
in byte 0,, the first word of the file 
appendage contains the address of the DTF 
table for this file. 

File arguments should be used very 
carefully in Assembler subroutines. Issu¬ 
ing an IOCS macro to a CCB which is part 
of a DTF table used by a PL/I program may 
destroy the synchronization between the 
PL/I program and logical IOCS. (Note that 
the CCB address must be inserted at object 
time when IOCS macros are used for file¬ 
name parameters.) However, a programmer 
experienced in DOS/TOS IOCS may use file¬ 
name parameters in Assembler subroutines 
to improve the capability of his program. 
For example, he may: 

1. change DTF tables to allow handling of 
additional user labels or non-standard 
tape labels before opening a file. 

2. change DTF tables to accomplish spe¬ 
cial stacker selection. PL/I programs 
use normal stackers for card input 
files and stacker 2 for punched-card 
output files. 

3. issue a CNTRL macro instruction for 
seeking on a REGIONAL file to allow 
overlapping of seek time. 

Figure 23 shows a PL/I procedure that 
calls a module written in Assembler lan¬ 
guage, which itself contains a function 
reference to another external PL/I 
procedure. 

Data of the scope EXTERNAL may be 
shared between PL/I and Assembler modules. 


Case_l. Data items within PL/I modules 
which are referred to by Assembler lan¬ 
guage modules: 

Use EXTRN statement in the Assembler 
modules. 

Case_2. Data items within Assembler 
modules which are referred to by PL/I 
modules: 


Each data item must be a separate CSECT; 
otherwise incorrect addresses will be 
assigned when the programs are 
link-edited. 

If a data item is a structure, all its 
individual elements can be coded together 
as a series of DCs or as a DS in the 
Assembler-language module under a single 
CSECT. In preparing such a structure, the 
PL/I structure mapping rules as described 
under Da ta Storage Mapping must, however, 
be observed. 

The CSECT statement must be used if the 
respective name is not declared to be 
EXTERNAL in any PL/I program within the 
same phase. .In all other cases,, the pro¬ 
grammer may use the instruction he consi¬ 
ders convenient. 

Not e: Values returned by routines written 

in Assembler language must have the format 
specified for PL/I. Floating-point data 
must be normalized. 


CHECKPOINT AND RESTART 

A typical example for a procedure written 
in Assembler language is checkpointing and 
restarting. For convenience, both the 
checkpoint part and the restart part 
should be contained in the same routine. 

If checkpointing is desired, the 
restart address, the end address,, and the 
tape file positioning information must be 
provided. (Some additional information is 
required if the checkpoint is to be writ¬ 
ten on disk.) The restart address is 
known if it is in the same module as the 
checkpoint routine. The end address can 
be taken from word 3 of the save area, 
since this is the address of the next (not 
yet allocated) save area. Names of tape 
files can either be passed as parameters 
or addressed directly by using a V-type 
constant. (See the discussion on file 
parameters in the section Pa ssing Argu¬ 
ments. The same applies to the usage of 
V-type constants.) 

After the job has been restarted with 
the RSTRT statement, the restart routine 
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// EXEC 

PL/I 



CALLER: 

PROCEDURE 

OPTIONS (MAIN); 



DECLARE C CHARACTER (25) STATIC; 



CALL SUBASM (A,B,C) /‘CALLS SUBROUTINE WRITTEN IN ASSEMBLER LANGUAGE */; 


END; 



/*_ 

_ _ _ _ 

_ _ _ _ _ _ _ 

- - - - - - - - - - 

// EXEC 

ASSEMBLY 




TITLE 

'SUBROUTINE CALLED BY 

PL/I AND CALLING PL/I' 

SUBASM 

START 

0 

PARAMETERS ARE A, B, C 


USING 

*,9 



SAVE 

04,12) 

SAVE REGISTERS 


LR 

9,15 

ASSURE PROGRAM ADDRESSABILITY 


LR 

3,1 

ASSURE ADDRESSABILITY OF PARAMETERS 


LA 

1 ,PBL 

CREATE OWN DSA 


CALL 

IJKSZCN 



L 

1,0(3) 

MAKE A ADDRESSABLE 


LE 

0,0(1) 

LOAD A 


L 

1,4(3) 

MAKE B ADDRESSABLE 


AE 

0,0(1) 

ADD B 


CALL 

LEVEL3,(X,Y, RETURN) 

CALL PL/I FUNCTION PROCEDURE 


L 

1,8(3) 

MAKE C ADDRESSABLE 


MVC 

0(24,1), RETURN 

C = RETURN || 


MVI 

24(1 ),X'4B' 



L 

13,4(13) 



RETURN 

04,12) 

RETURN TO CALLING PL/l PROCEDURE 

X 

DS 

F 

ARGUMENT X 

Y 

DS 

CL3 

ARGUMENT Y 


DS 

OF 


PBL 

DC 

X'03' 

DATA TO CREATE DSA ! 


DC 

AL3(ONINDICT) 

POINTER TO ON-INDICATOR WORD 


DC 

A (80) 

20-WORD DSA 

ONINDICT 

DC 

3X'0' 



DC 

B'l 1110000' 

SIZE AND CONVERSION DISABLED 

RETURN 

DS 

CL24 

SPACE FOR RECEIVING STRING FROM 

* 

• 


PL/l FUNCTION LEVEL3 


END 



/* 




// EXEC 

PL/I 



LEVEL3: 

PROCEDURE (U,V) CHARACTER (24); 



DECLARE STR CHARACTER (21), V FIXED DECIMAL (5,2); 


RETURN (** 

' II STR) 

/* ONE BLANK AUTOMATICALLY 




ADDED AT THE END TO OBTAIN 




CORRECT LENGTH */? 


END; 



/* 





Figure 23. Example of Linkages between PL/I Procedure and Assembler Module 


must issue an STXIT macro for Program 
Check Interruption. The two address 
operands to be issued with STXIT are the 
external names IJKSZCI and IJKZWSI for the 
routine address and the save area, respec¬ 
tively. Moreover, the program mask must 
be reset. 


Note: PL/I input files must not contain 

interspersed checkpoint records. 

Figure 24 shows a coding example of a 
routine combining the checkpoint and the 


restart part. For detailed information 
refer to the following SRL publications: 


For DO S 

IBM System/360 Disk Operating System,, Sys¬ 
tem Control and System Service Programs, 
Form GC24-5036 


IEM System/360 Disk Operating System, 
Supervisor and Input/Output Macros, Form 
GC24-5037 
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For TOS 


IBM System/360 Tape Operating System, 
Supervisor and Input/Output Macros, Form 
GC24-5035 


IEM System/360 Tape Operating System, Sys¬ 
tem Control and System Service Programs, 
Fcrrr GC24-5034 


CPRS 

TITLE 

'CHECKPOINT-RESTART 

ROUTINE' 

* 


CALLED BY A PL/I 

PROCEDURE. THE INFORMATION ON THE 

W 


POSITIONING OF 

THE TWO FILES TAPEIN AND TAPEOUT IS 

* 


TO BE CHECKPOINTED. 


CHPRES 

START 





USING 

M2 




SAVE 

04,12) 




LR 

12,15 


SET BASE REGISTER 


LA 

1, PBL 


CALL Pl/I PROLOGUE ROUTINE 


L 

15,=V(IJKSZCN) 




BALR 

14,15 




L 

2,=V(TAPEIN) 


PREPARE FILE TABLE 


L 

2,0(2) 




ST 

2,FILETAB+2 




L 

2,=V(TAPEOUT) 




L 

2,0(2) 




ST 

2, FILETAB-* 




L 

2,8(13) 


LOAD END ADDRESS 


BALR 

3,0 


SAVE PROGRAM MASK IN AUTOMATIC 


ST 

3,80(13) 


STORAGE 


CHKPT 

SYS007,RESTART, (2),TPOINT CHECKPOINT ON SYS007 


B 

RETURN 



* 




RESTART PART. NOTICE THAT ALL GENERAL 

* 




REGISTERS ARE AUTOMATICALLY RESTORED. 

RESTART 

L 

0,=V (1JKSZC1) 


SET PROGR. CHECK INTERRUPTION EXIT. 


L 

1 ,=V(IJKZWSI) 




STXIT 

PC,(0),(1) 




L 

2,80(13) 


SET PROGRAM MASK. 


SPM 

2 



RETURN 

L 

13,4(13) 


RETURN TO PL/I CALLER 


RETURN 

(14,12) 




DS 

OF 



PBL 

DC 

X'03' 


ARGUMENT FOR IJKSZCN 


DC 

AL3(INDIC) 




DC 

A (88) 


PL/I SAVE AREA DEFINITION + 1 WORD FOR 

* 




SAVING PROGRAM MASK (MUST BE MULTIPLE 

* 




OF EIGHT). 

INDIC 

DC 

A(0) 


ON INDICATORS 

TPOINT 

DC 

A(FILETAB) 


POINTER TO FILETABLE 


DC 

A(0) 


PIOCS FILES NOT USED 


CNOP 

2,4 



FILETAB 

DC 

H'2' 


FILE TABLE 


DS 

2F 




END 





Figure 24. Coding Example of Combined Checkpoint and Restart Routine 
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GENERAL PROGRAMMING INFORMATION 


This section describes some programming 
techniques to save storage, produce a 
faster object program, perform functions 
not easily achieved with more conventional 
PL/I language facilities, make a program 
fit into the available storage, etc. 


STATEMENT_FORMAT 

The first column of every source text card 
must be blank. Columns 73-80 are ignored; 
they may contain any information. 


If a program uses the entire storage 
and no space is left for eventualities,, 
reasonable solutions become difficult. 

If, however, normal expansion was provided 
for, the overall job is much easier. 

CONVERSIONS 

If a numeric variable is tc be used fre¬ 
quently in expressions, it is much more 
economical to convert the variable to 
coded form once and use the coded form in 
all expressions. This is easily done by 
means of an assignment statement. 


PROGRAM SEGMENTATION 


Every program should be written so that it 
can be segmented if necessary. The case 
of storage overflow should be provided for 
so that, if it does occur, it can be 
handled easily. Breakpoints in the logic 
of a program, i.e., points where a program 
phase can be terminated and a subsequent 
phase entered, should he numerous. 

Data common to successive programs can 
be kept through the proper use of the 
EXTERNAL attribute. However, not all data 
need be external. 

Programs that read data, compute, and 
write results lend themselves to segmenta¬ 
tion most readily. Wherever practical,, 
entire programs should be written as 
sequences of calls for subroutine proce¬ 
dures because each call is a logical brea¬ 
kpoint. Thus, the entire storage can be 
loaded with as many subroutines as can be 
accommodated. The next phase then repeats 
the process of loading the storage with 
the next group of subroutines, etc. 


£EQGRAm_expansion 


In general, no more than 90 % of the 
storage available for any program phase 
should be used during the first six months 
of its life because, at one time of anoth¬ 
er, every program tends to expand due to 

1. programming errors,, 

2. the need to expand the original 
function, 

3. errors in the system program or in the 
associated subroutines, and/or 

4. an increase of the data storage 
requirements. 


Conversions implicit in IF statements 
fellow the rules for arithmetic conver¬ 
sions,, and the intermediate precisions 
should be considered when using such 
expressions. 

For example, in case 3 (IF X=U THEN...) 
of the following sample program the conv¬ 
ersion rules kre applied to X„ giving a 
short-precis ion floating-point number 
which is then expanded (padded) with 
trailing zeros to long precision before 
the actual comparison operation. Thus 
expression 2 will be executed, not expres¬ 
sion 1. However, if X and U are assigned 
with a value which will be the same in 
both short and long precision (e.g. 0.5), 

then expression 1 will be executed. 

In evaluating the following program, 
refer to Section F: Data Co nve r sion in 
IBM S y st em /3 60, Disk and Tap e Operating 
Sy stems , P L/I S ub set Re f e ren ce Manual ,, 

Form GC28-8202. 


PROCEDURE OPTIONS(MAIN); 
DECLARE X DECIMAL FIXED(5,2); 
DECLARE T DECIMAL FIXED(15,2) 
DECLARE Y FLCAT(6); 

DECLARE U FLOAT(16); 


x= 

123.45; 





Y= 

123.45; 





T= 

123.45; 





U= 

123.45; 





IF 

X=Y THEN 

expression 

1 

/* 

Yes */ 


ELSE 

expression 

2 

/* 

No */ 

IF 

X=T THEN 

expression 

1 

/* 

Yes */ 


ELSE 

expression 

2 

/* 

No */ 

IF 

X=U THEN 

expression 

1 

/* 

NO */ 


ELSE 

expression 

2 

/* 

Yes V 

IF 

Y=T THEN 

expression 

1 

/* 

NO * / 


ELSE 

expression 

2 

/* 

Yes */ 

IF 

Y=U THEN 

expression 

1 

/* 

No */ 


ELSE 

expression 

2 

/* 

Yes V 

IF 

T=U THEN 

expression 

1 

/* 

Yes */ 


ELSE 

expression 

2 

/* 

No */ 


END; 
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USE_OFJJNSPEC 

The UNSPEC pseudo variable and the UNSPEC 
built-in function handle the internal 
representation of data. The internal 
representation of data is summarized in 
Figure 43 and described in detail in the 
section Da ta Storage Requi re ments. 


The programmer must make sure that 
values assigned by the UNSPEC pseudo vari¬ 
able have the correct format. Otherwise, 
the results are unpredictable. Note that 
the internal representation of floating¬ 
point data is normalized. Consider the 
following example: 


DECLARE A FLOAT, B CHARACTER(1), C FIXED 
DECIMAL(5,3); 

B = * 8 * ; 

X: PUT EDIT (UNSPEC(B)) (SKIP,B); 

Y: UNSPEC(A)=(31)'O'B || 'l'B; 

Z: UNSPEC(C)=(16)* O'B || 'OllOOOOO'B; 

The result of statement X is 11111000. 
Statement Y yields unpredictable results 
since the value to be assigned is not nor¬ 
malized. Statement Z also yields unpre¬ 
dictable results since the last half-byte 
does not contain a valid sign for packed 
decimal data representation. 


COMPUTATIQNS_WITB_OVERLAY 

Whenever possible, input/output phases 
should be performed separately from compu¬ 
tational phases. Thus, the I/O subrou¬ 
tines including the E and/or F conversion 
subroutines are never in storage simul¬ 
taneously with the other subroutines (ari¬ 
thmetic, base, and scale conversion, 
etc,.). This can result in considerable 
storage savings (see Figure 25). 



Figure 25. Example of Using Overlays to 
Perform Computations and I/O 
Operations Separately 


BLO CKING 

It may happen that one large set of data 
is used in a program only at one specific 
point, that another large set of data is 
used at another point, etc. In this case, 
each set of data used at cne point should 
appear in a separate block so that the 
data is AUTOMATIC by default (unless de¬ 
clared to be STATIC) and allocated only 
when the respective block is active. 

Thus, the same storage area can be used 
for all data sets to be used. 

SIMULA TION OF P- FOR MAT ITEMS 

The PICTURE-format items of OS PL/I are a 
more powerful tool for editing than the 
format items available in DOS/TOS PL/I. 
However, numeric fields in edit-directed 
I/O operations can easily be simulated by 
overlaying numeric fields with character 
strings using the DEFINED attribute. An 
example is shown below: 

DECLARE U PICTURE '$$,$$9 .V99BCR', 

B CHARACTER (12) DEFINED U; 


U= ... 

PUT SKIP EDIT ('U = '„ B) (2 A); 


SIM ULAT ION CF ARRAYS CF STRUCTURES 

Since arrays of structures are not per¬ 
mitted in the PL/I Subset language, it is 
recommended to simulate arrays of struc¬ 
tures by using arrays in structures, i.e, # 
by arrays that are not themselves struc¬ 
tures. Should this not be feasible, 
arrays of structures may be simulated by 
using based structures. This can be 
accomplished by assigning to the pointer 
the value of an element cf a character¬ 
string array. The programmer is respons¬ 
ible for satisfying all boundary 
requirements. 

The following example shows the handl¬ 
ing of structures in CS FL/I versus DOS/ 
TOS PL/I: 

OS_PL/I 

DECLARE 1 A, 2 E FLOAT, 2 C(10), 3 D 
PICTURE '9999', 

3 E FICTURE 'XX' , 

3 F PICTURE '99V99* ; 

DO 1=1 TO 10; 

A. D(I) =- 

END; 
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This could be written in DOS/TOS as 
follows: 

DECLARE PTR POINTER,, 1 A, 2 B FLOAT, 2 C 
(10) CHARACTER(10), 1 X BASED 
(PTR), 2 D PICTURE '9999*, 2 E 
PICTURE 'XXV, 2 F PICTURE '99V99'; 


DO 1=1 to 10; 
PTR=ADDR(A.C(I) ) ; 

X. D — . . mm 

END; 


USE_OF_ - THE_pE|INED_ATTRIBUTE 

For scalar variables or arrays,, the 
DEFINED attribute is used when 

1. a variable is to have more than one 
name (correspondence defining), or 

2. two separate variables are to occupy 
the same storage area provided they 
are never required simultaneously 
(overlay defining). 

In either case, the actual storage 
requirement is that of the base identifier 
and not the sum of the storage require¬ 
ments of all variables. For restrictions 
on the use of the DEFINED attribute for 
scalar variables and arrays see the Subset 
language publication. 

The use of the DEFINED attribute can 
result in considerable savings of storage. 
This is obvious for arrays, e.g., the 
statement 

DECLARE A (5,9,7), B (5,9,7) DEFINED A; 

merely requires the storage area for array 
A (315 data items). Without the DEFINED 
attribute, the storage requirements would 
be twice as much. But in spite of the 
more severe restictions on the use of the 
DEFINED attribute for structures, it can 
also be of considerable use in this case. 


USE OF BASED VARIABLES WIT H STRUCTURE S 

The restrictions on the use of the DEFINED 
attribute for structures can be circum¬ 
vented by using based variables instead of 
the DEFINED attribute. For example, in 
the statement shown below structures U and 
I are based variables. They are never 
allocated any storage. Instead, the 
pointer variable P can be used to utilize 
the storage occupied by structure A 
whenever structures U and I are referred 


to (provided that structure A is not 
required at the same time). 


DECLARE P POINTER, 

1 A ALIGNED,, 

2 B BIT(7), 

2 C FIXED DECIMAL (13„2)„ 

2 D CHARACTER (21)„ 

1 U ALIGNED BASED (P)„ 

2 V BINARY, 

2 W„ 

2 X BIT(19), 

1 I BASED (F), 

2 J, 

2 K, 

2 L; 

The statement 

P = ADDR (A); 

would cause any subsequent reference to 
either U or I or any component of U or I 
to point to the storage area occupied by 
A, This simulates the use of the DEFINED 
attribute with all of its restrictions 
removed except that the based structures 
must be mapped in the same or less storage 
than the map of the overlaid structure. 
This process may be extended even further 
so that a based variable structure occu¬ 
pies the storage area of any one of many 
structures. This is demonstrated below: 

DECLARE (VI,V2) POINTER, 

1 A, 2 B, 2 C,__ 

1 U ALIGNED, 2 F, 3 Q BIT (9),..., 

1R, 2Z, 2M, 3S CHARACTER(2), 

1 PI BASED (VI), 2 L, 2 X,,..., 

1 P2 ALIGNED BASED (V2), 

2 D BIT (9) , .; 

V1=ADDR(A); 

. using PI here points to A 

V1=ADDR(U); 

. using PI here points to U 

V2=ADDR(R); 

. using P2 here points to R 

V1=ADDR(R); 

. using FI here points to R 

etc. 

Of course, the storage requirement of 
structure PI must not exceed that of tne 
smallest of either A, U, or R. since the 
structure P2 does not point to A or u in 
this procedure, the only prerequisite is 
that its storage requirement must not 
exceed that of R. 
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Note on C o mp atibility; The structure- 
mapping technique for OS PL/I is identical 
to that for DOS/TOS PL/I in every respect 
but one. The exception is that DOS/TQS 
PL/I causes all structures to begin at 
double-word boundaries. This is accomp¬ 
lished by padding to tne left of the first 
addressable element until byte zero is 
reached. (See the section Structure_Map- 
EilH_ 5 ules, rule 11.) 

OS PL/I begins structures at the first 
addressable element. This difference is 
of no significance in PL/I programming 
unless the above-described technique is 
employed. When this technique is used,, 
compatibility is guaranteed if at least 
one element of the non-based structure has 
a stringency level that is as high as that 
of the element (or elements) of the high¬ 
est stringency level of the based 
structure. 

For the D Compiler the pointer asso¬ 
ciated with a based structure must be 
assigned an address value which insures 
that the first element of the structure 
has the same distance to a double-word 
boundary as it would have if the structure 
was not based. 


character,, treat it in any one of many 
different ways witnout requiring space for 
each possible structure. 


USE OF THE 48-CHARACT ER SET 

If the 48-character set is used, the word 
PT, in addition to those listed in the 
Subset language publication, is a reserved 
keyword. Programs written in the 60- 
character set can be read if 48C is speci¬ 
fied in the CPTICN statement (but not vice 
versa). 


SIZ E OVERFLOW 

If a size overflow occurs during F-format 
output,, the output field will contain 
asterisks, even if SIZE is disabled. 


USE CF THE DISPLAY STATEMENT WIT H THE 
REPLY O PTI ON 

Using the DISPLAY statement with the REPLY 
option is possible only if a 1052 Printer- 
Keyboard is available. 


Note: The use of based structures to 

avoid the use of the DEFINED attribute is 
dependent on structure mapping which, in 
turn, is implementation-defined. 


REDEFINITION OF ATTRIBUTES 


PRECIS ION CF DEC IMA L DATA 

The use of an odd precision for decimal 
data will keep the generated code at a 
minimum and thus improve the program 
performance. 


The two preceding sections showed that a 
number of structures can be made to occupy 
the same storage area. Similarly, a 
single character-class variable may be 
conceived of in many different ways. Con¬ 
sider the declaration shown below. 


DECLARE 

1 


1 


1 


A CHARACTER (80), 

B DEFINED A, 

2 C CHARACTER (40), 

2 D CHARACTER (30) , 

2 E CHARACTER (10), 

F DEFINED A,, 

2 S PICTURE ' (8)9* , 

2 H PICTURE '9', 

2 I CHARACTER (61), 

2 J PICTURE '(5)9V(5)9 1 , 

K DEFINED A, 

2 L (10) PICTURE ' $$( 4) 9V( 2) 9'; 


A represents a string of 80 characters 
whereas B, F, and K represent three dis¬ 
tinct structures. However, these three 
distinct structures refer to the same 
storage area as A. This technique is 
especially useful in programs with many 
different structures to be read. For 
instance, the program may read a character 
string and, depending on its first 


CHANGING THE TAB CONTROL TABLE 

List-directed output to PRINT files auto¬ 
matically aligns data on preset tab posi¬ 
tions. For the D-level compiler,, these 
tab positions are 1 , 25 , 49 , 73, 97,, and 
121 . 

The tab positions are determined from 
the control table IJKTLTE which is catalo¬ 
gued under this name in the relocatable 
library. To obtain different tab posi¬ 
tions, the programmer only has to change 
this table by specifying the following 
macro instruction: 

IJKZL (tat,(tab,_,]FF) 

In this macro instruction, 'tab' is a 
decimal constant indicating the desired 
tab postion, and *FF' indicates the end of 
the table. Tabs must be specified in 
ascending sequence, and their values must 
range between 1 and 144. The length cf 
the tab list specified in the IJKZL macro 
instruction must not exceed 127 charac¬ 
ters, including opening and closing paren¬ 
theses and commas. 
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Following is an example of the IJKZL 
macro instruction and the control state¬ 
ments required to change the tab settings. 


// JOB IJKTLTB 
// OPTION DECK 
// EXEC ASSEMBLY 

IJKZL (1, 25, 50, 75, 100,FF) 

END 

/* 

* THE RESULTING OBJECT DECK IS INPUT 

* FOR THE FOLLOWING EXEC MAINT PROGRAM 
// EXEC MAINT 

(Object deck) 

/* 

/& 


If the specified tab positions do not fall 
between the values 1 and 144, or if they 
are not in ascending sequence, one of the 
following messages is issued: 

PARAMETER GT 144 

PARAMETER NOT IN ASCENDING ORDER 


IMPROVEMENT_gF_pO-LgOPS 

The execution time of a DO-loop can be 
reduced if a fixed binary variable is used 
as control variable in the DC statement. 

For example, if in the statement 

DO var = expl TO exp2 [BY exp31 
[WHILE (exp451; 

'var' is a fixed binary value, all con¬ 
stants used as expl, exp2, and exp3 will 
be converted to fixed binary during compi¬ 
lation, in order to avoid conversions dur^ 
ing execution. 


ROUNDING O N OU TP UT W ITH E AND F FORMAT 
ITEMS 

On output, data edited by the E- or F- 
format are rounded at the last numeric 
position, and not truncated. 


handling_blank_numeric_fields 

When using a PICTURE specification with 
*9's for numeric fields and the field is 
blank, a program check (data exception) 
occurs. 

This is a particular problem for card 
input where fields are often left blank 
rather than filled with zeroes. 


The problem can be avoided by declaring 
the field with PICTURE using 'Z' rather 
than '9'. Note that for fields over¬ 
punched with the sign, this is not true. 

Assume card columns 1-10 are numerical 
and may or may not be punched. 

DECLARE CCI_1 PICTURE '(10)9'; 

DECLARE CCL_1 FICTURE '(lO)Z'; 

The first DECLARE statement will cause a 
data exception if the field is blank. In 
the second example, no data exception will 
occur. 

The programmer should, however, be 
aware that the exclusive use of '9's in a 
PICTURE specification results in more 
efficient code. 


USE OF LIST-DIRECTED AND EDIT-D IRECT ED 
DATA_TRANSMISSICN 

When the list-directed and edit-directed 
transmission modes are used for the same 
file, the user is responsible for the 
correct positioning of the file. 


USE CF PICTURES WITH STREAM-ORIE NTED DATA 

TRA NSMISSI ON 

1• Ch ar acter -s tring pictures: 

The D compiler handles them, In the 
same way as normal character-string 
variables. 

2• Ari thm etic pictures: 

All kinds of arithmetic pictures are 
possible in the data lists of GET and 
PUT statements. 

a. Edit-directed transmission: 

Only such items in the data stream 
which can be described by the E or 
F format can be transferred from 
(PUT) or into (GET) arithmetic 
pictures. If, on output, the pro¬ 
grammer wants the character repre¬ 
sentation of the picture, he 
should use the CHAR built-in func¬ 
tion as pseudo-variable with the 
picture as argument in the data 
list. 

b. List-directed transmission: 

On input, only [+|-] arithmetic 
constants can be transferred into 
arithmetic pictures. On output, 
the character representation will 
be transferred into the data 
stream. 
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PICTURE SPECI FIC ATIONS 

Storage can be saved by proper declaration 
of fixed numeric PICTURE fields. 

1. PICTURE specifications without drift¬ 
ing characters: make the first digit 
position ' Z 1 or **' and avoid writing 
the first *9' in the field immediately 
following an insertion character. 

' Z 9,99.V99* is better than ’99,99.V99' 
'SZZ9999' is better than 'S999999' 

'+ZZ,Z999' is tetter than '+ZZ,9999* 

2. Specifying "V." rather than ".V" 
results in better code in the follow¬ 
ing cases: 

(a) If the first fractional digit 
position is the first *9* in the 
field, then 

'ZZ,ZZZV.99' is better than 

’zz^zz.vgg'. 

(b) If a drifting character or zero- 
suppression is specified past the 
decimal point, then 

'$$$$$V.$$* is tetter than 

•$$$$$.V$$' 

•**♦**V.** * is better than 

'****♦.v**' 

3. Give the variable in the right-hand 
side of an assignment statement the 
attribute DECIMAL FIXED with the same 
scale and precision as the PICTURE. 


If there is an expression on the 
right-hand side try to produce the 
desired scale and precision. 

4. Zero-suppression with costs more 

storage (code) than zero-suppression 
with "Z" if 

"+" or is used (static or drift¬ 

ing) or 

"B" is used af ter the last digit 
position. 

5. If the PICTURE does not contain at 
least one "9", "T" ( "I" or "R”, but 
does contain a "V", additional code is 
required for clearing the field in 
case of a zero value. 


INDPAGE_WITH_MULTIPLE-LINE_PUT 

When using a FUT statement producing mul¬ 
tiple lines, the ENDPAGE condition should 
not be enabled because of possible less of 
data: 

ON ENDPAGE(F) GOTO X; 

PUT FILE(F) EDIT (data-list) (format-list) ; 
X: new header; 

In this example the ENDPAGE condition 
may be raised during execution of the data 
list (assuming multiple-line output); but 
no return from X is possible, sc that the 
rest of the data list will be ignored. 
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PROGRAM-CHECKOUT FACILITIES 


Certain language features are provided in 
PL/I to assist the programmer in debugging 
his program. These facilities are 
described below. 


exhibit_changed 

The EXHIEIT CHANGED feature uses the 
library routine IJKEXHC which requires 
approximately 1200 bytes of main storage. 


Function: 

The first execution of the CALL IJKEXHC 
statement causes the printing of the names 
listed in the statement, and their values 
in hexadecimal notation. 

General Format: 

CALL IJKEXHC (name , name ....); 

The argument 'name' can be an unsub- 
scripted, unqualified name representing an 
element, an array, or a structure which 
are net contained in an array or struc¬ 
ture, or it can be a string or arithmetic 
constant. However, it cannot be a label 
constant, an entry name, or a file name. 

General Rules: 

1. Names with the attribute AUTOMATIC are 
printed each time the CALL IJKEXHC 
statement is first executed after a 
new block activation. Names with the 
attribute STATIC are printed only the 
first time the CALL IJKEXHC is 
executed if the activated block is 
internal. They are printed each time 
the CALL IJKEXHC statement is executed 
if the activated block is external. 

2. On subsequent passes of the CALL 
IJKEXHC statement, the names and 
values are printed only if the value 
has changed since the time the state¬ 
ment was last executed. 

3. If there are several CALL IJKEXHC sta¬ 
tements in cne program, they are inde¬ 
pendent from each other. 

4. The maximum number of arguments for 
one CALL IJKEXHC statement is 12. If 
an argument has the BASED or DEFINED 
attribute, the related pointer or base 
variable is counted as an argument,, 
regardless of whether it has been spe¬ 
cified in the argument list or not. 


5. Up to 30 names can be checked by CALL 
IJKEXHC statements within cne block, 
if 10K bytes are available to the com¬ 
piler. For each additional 4K,, up to 
46K, 30 additional names can be 
checked. 

6. The values of element variables having 
the attributes BINARY FIXED, EINARY 
FLOAT, DECIMAL FIXED, DECIMAL FLOAT,, 
CHARACTER, BIT, or PICTURE are also 
printed in their external form. 


TRA CING 

The TRACING feature uses the library rou¬ 
tine IJKTRON which requires 1258 bytes of 
main storage. 

Function: 

The two statements, CALL IJKTRON and CALL 
IJKTROF, function like a switch. IJKTRON 
switches tracing on, while IJKTROF turns 
it off. 

If tracing is enabled for a block, the 
following information is printed on 
SYSLST: 

1. On entry, the external name of the 
block, or, if the block has no label, 
the internal name of the block. 

2. On leaving a block via an END or 
RETURN statement, a message is given 
to indicate the exit. If the STMT 
option is active, the statement number 
of the END or RETURN statement is 
printed as well as the number of the 
statement to which the program 
returns. 

Note: If for 'CALL entry name' infor¬ 

mation should be printed, tracing must 
be enabled for the blcck which con¬ 
tains the entry name. 

3. For each executed GCTC statement 

a. the external name (up to eight 
characters) and value of the label 
variable or constant if the GOTO 
statement is_not in an cn-unit, or 

b. the ON-condition and the value of 
the label variable or constant if 
the GOTO statement is in an 
on-unit. 

If the STMT option is active, the sta¬ 
tement number of the GOTO statement 
and the statement number of the target 
statement are also displayed. 
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General Formati 


CALL IJKTRON; 

CALL IJKTROF; 

General Rules; 

1. Tracing can be explicitly enabled in a 
block by a CALL IJKTRON statement. 

2. A CALL IJKTROF statement explicitly 
disables tracing in a block. 


3. If tracing is neither explicitly 

enabled nor disabled in a block, the 
tracing status of the dynamically con¬ 
taining block is applied. 


4. The dynamically containing block of 
the main procedure has tracing 
disabled. 


5. At least one of the two statements has 
tc be specified if tracing is to 
appear in an external procedure. 


11) 

END 

12) 

END Al; 

13) Bl: 

PROCEDURE; 

14' 

CALI IJKTROF; 

15) 

RETURN; 

16) 

END Bl; 


This example causes the following (the 
statement numbers in the above example are 
referenced in the left-hand margin belcw): 

1) When the main procedure is invoked,, 
no tracing status is specified and,, 
therefore,, tracing for this block 
and, per definition, for the dynam¬ 
ically containing block is 
disabled. 


6. When calling an external procedure 
(provided tracing is enabled at the 
time of the call), the called phase 
must have a call for either IJKTRON or 
IJKTROF. If this condition is not 
satisfied, the results are unpredict¬ 
able in the event of an interrupt. 


Example: 

1) Al: PROCEDURE OPTIONS (MAIN); 


2) 

CALL IJKTRON; 


3) 

SOTO All; 



4) 

All: CALL 

Bl; 


5) 

C=3; 



6) 

SOTO 

A2 ; 


7) 

A2: : 

BEGIN; 


8) 


CALL 

IJKTROF; 

9) 


GOTO 

A21; 

10) 


A21: 

CALL IJKTRON 


2) Tracing is explicitly enabled in 
block Al. 

3) The external name and value of 
label All are printed. 

4,13) No tracing status is specified for 
this block; therefore, the 
(enabled) status of the containing 
block Al is adopted and the name of 
the procedure B1 is printed. 

14,15) Tracing is explicitly disabled for 
this block, and no message is 
printed when control returns to 
statement 5. 

6) The external name and value of the 
label A2 are printed since tracing 
is still enabled in Al. 

7) With the activation of block A2 
tracing is neither enabled nor dis¬ 
abled, therefore the (enabled) sta¬ 
tus of block Al is adopted and the 
external name of block A2 is 
printed. 

8,9) Tracing is disabled for block A2 
and no message is printed. 

10,11) Tracing is again enabled and the 

pass of the END statement is indi¬ 
cated on SYS1ST. 

12) Since tracing in the main routine 
is still enabled, the pass of this 
END statement is also indicated on 
SYSLST. 
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£HE_pYNpyMP_ROUTINE 
The statement 

CALL DYNDUMP (argument-list); 

may be used to have the internal represen¬ 
tation of the items in the argument list 
displayed in hexadecimal notation. The 
argument list may contain up to 12 items. 
Each argument must be either a scalar 
expression or a variable name. 

The DYNDUMP routine (56 bytes in 
length) uses the PL/I Control routine and 
the SYSPRINT file with the associated 
module. No additional I/O subroutines are 
required. Thus, the DYNDUMP routine pro¬ 
vides an economical way of displaying 
intermediate results during checkout of 
PL/I programs with a minimum of library 
and I/O module overhead. 

The following example shows the use of 
the DYNDUMP routine. 

DECLARE A FIXED(5, 2), B(10), C BIT(l); 


CALL DYNDUMP (A,B,C); 

Three items are displayed: A as 3 
bytes (6 hexadecimal digits), B as 40 
bytes (80 hexadecimal digits), and C as 
one byte (2 hexadecimal digits). 

Note: The current value of C is indicated 

by the first bit. If the variable length 
is an exact multiple of 48 bytes, the end 
address+1 will be printed on the next line 
in order to delimit the variables for ease 
of reading. 


LQCATIN3_EXECUTipN-TIME_ERRCRS 

If a PL/I object program is terminated by 
the PL/I control routine and the DUMP 
option is active, the problem program area 
is printed (dumped) on the device assigned 
to SYSLST. The following information is 
intended to assist the programmer in ana¬ 
lyzing a program dump and to locate the 
error that caused the termination of this 
program. 

Note: There is no guarantee that main 

storage organization will always be as 
described below. Severe programming 
errors, e.g., illegal use of based 
variables, the UNSPEC pseudo variable, or 
use of user-written Assembler subroutines 
may yield unpredictable results. 

If the error was caused by an I/O 
operation, lock up the Linkage Editor 
storage map to find the address of the DTF 
table for the respective file. The first 


*rard of the DTF table contains the address 
of the corresponding CCE. For details cn 
the CCB refer to the SRL publications 
describing the DCS/TCS Supervisor and I/O 
macro instructions. 

Data declared with the attribute 
EXTERNAL can be found using the addresses 
given in the Linkage Editor storage map. 

To determine the absolute address of 
static internal data refer to the offset 
table listing (see the section O ffset 
Table List ing). 

To locate the storage allocated to an 
automatic variable, the offset of the 
variable within the DSA (Dynamic Storage 
Area) is determined from the offset table, 
and this offset is added to the DSA 
address of the block to which the variable 
is internal. The address of the DSA is 
automatically loaded into register 13 at 
prologue time. Word 20 of the DSA con¬ 
tains the DSA address of the statically 
embracing block. 

The load point of the main DSA is the 
next double-word boundary after the high¬ 
est high-core address of all external 
blocks linked in the program. 

More than one DSA may be allocated, 
i.e., if more than one block is active. 

To find the DSA of the block where the 
error is detected, check the byte pointed 
to by register 13. If this byte contains 
either X'hl' or X'h3' (h may be any hexa¬ 
decimal digit), register 13 points to the 
relevant DSA. In this case, the error 
message was most probably caused by a Pro¬ 
gram Check interrupt. 

The instruction that caused the inter¬ 
rupt can be found by means of the diag¬ 
nostic message. The old PSW and the regi¬ 
sters can be found at the location with 
the external label IJKZWSI. 

If the byte contains X s 05*, register 13 
points to a LSSA (Library Standard Save 
Area), the second word of which contains 
the chain-back word. If tnis again points 
to a LSSA,, repeat the chain-back process 
until the chain-back word points to a DSA. 
This DSA then belongs to the block where 
the error was detected. 

To identify the block, go to the chain- 
back address of the relevant DSA. If this 
points to another DSA, word 5 of the DSA 
contains the absolute address of the 
block. The block can then be identified 
using the object code listing and the Lin¬ 
kage Editor storage map. If the chain- 
back word does not point tc a DSA, the 
relevant DSA is the DSA of the MAIN proce¬ 
dure ( see Figure 25A). 
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The chain of DSAs resembles the current 
environment at the point of execution 
where the error was detected. Each DSA in 
the chain has its corresponding currently 
active block. From where and at which 


location a specific block is activated can 
be determined by means cf the ESA of the 
calling block. For detailed information 
on the first 20 words of the DSA refer to 
the section li nk age Conventi on s. 


MAIN. .PROCEDURE OPTIONS (MAIN),. 


CALL SUB1 

L 15,=V(SUB1) 

BALR 14,15 


r~ 


END,. 

L 13,4(13) 

LM 14,12,12(13) 

BR 14 to STOP Routine 

DUMDSA 


Static Storage 


DSA SAVMAIN 


u 


I-I 


Flags 


AL3(Block Description) 


U 


Chain Back 
A(DUMDSA) 


Chain Forward 
A(Next Available Core) 


Return Register 14 


Entry Register 15 


Work Area 


Variables 

t 


ir 


i—i 




SUBl.. PROCEDURE,. 


USING *,15 

STM 14,12,12,(13) 


PROLOGUE 


CALL LAST 

L 15,=V(LAST) 

BALR 14,15 


RETURN 

l 13,4,(13) 

LM 14,12,12(13) 

BR 14 

Static Storage 


DSA SAVSUBT 


LJj 


Flags AL3(Biock Description) 


Chain Back 
A(Cal!ing DSA) 


Chain Forward 
A(Next Available Core) 


Return Register 14 


Entry Register 15 


Work Area 


Variables 

* 


-i i 




■4+f 


LAST.. PROCEDURE,. 


USING *, 15 

STM 14,12,12(13) 


PROLOGUE 


RETURN 

L 13,4(13) 

LM 14,12,12(13) 

BR 14 


Static Storage 


DSA SAVLAST 


Flags AL3(Block Description) 


Chain Back 
A(Calling DSA) 


Chain Forward 
A(Next Available Core) 


Return Register 14 


Entry Register 15 


Work Area 


Variables 

♦ 


Figure 25A. ESA Chaining 
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DATA STORAGE 


The storage requirements for data depend 
on the following two factors: 

1. The storage required for the data 
itself. 

2. The storage required for the data 
descriptor. (The data descriptor is 
required whenever the compile-time 
data description is to be used in the 
object program.) 

^^-DESCRIPTORS 

A data descriptor may describe more than 
one data item. Only one data descriptor 
is required fcr a group of data items that 
have identical (either explicitly or 
implicitly declared) attributes, e.g.„ for 
individual variables of identical attri¬ 
butes or for array elements. Thus, the 
statement 

DECLARE (A, B, C(21), D) FIXED DECIMAL 
(5,2), (E, F, G) PICTURE '$99.99'; 

requires only two descriptors: one 
describing A, B, the 21 C's, and D, and 
one describing E, F, and G. Constants 
(except those used in output lists), label 
variables, label constants, or pointer 
variables do not require a descriptor. 

A data descriptor and, therefore, 
storage in the object program is required 
only if the pertinent data item is used in 
a conversion or I/O library subroutine. 

r- t-t-1 

|Fixed decimal| | | 

|Float decimal | | | 

|Fixed binary (Coded ( | 

J Float binary j | j 

|Sterling | j | 

| constants j | | 

|r-f-j Arithmetic | 

|Fixed decimaljNumeric ( j 

(Float decimalj (picture- | | 

(Sterling j specified) j j 

k - f -+- i 

(Character | | | 

| Eit j String | j 

j Picture- | | | 

| specified j | | 

| character j | | 

^-f-j Non- ( 

|Label (Label (arithmetic j 

f-+- A I 

(Pointer |Pointer ( | 

i_ j. _j._ j 

Figure 26. Types of Data Items 


DAT A I TEMS 

Figure 26 shows the types of data items 
that require storage. In the following 
text, the storage requirements for each of 
these items are specified and illustrated 
by means of examples. The storage 
requirements given in these examples per¬ 
tain to the data only. Unless otherwise 
stated, references to coded arithmetic and 
string data apply to both variables and 
constants. Other data types will have 
constants and variables explicitly dif¬ 
ferentiated in regard to storage 
requirements. 


CODED ARITHMETIC DATA 
B inary Fix ed 

Default precision: 15 bits 
Maximum precision: 31 bits 
Storage requirements: 

1. Descriptor 

3 bytes (if required) 

2. Data 

4 bytes internal fixed-point regard¬ 
less of declared or default precision. 
Scale factor must n ot be specified. 

Figure 27 shows the storage require¬ 
ments for the binary fixed data declared 
in the following sample statement: 

DECLARE 1(8,5), A FIXED BINARY(7), 

J STATIC, Z <3) FIXED- BINARY(27) ; 


r - T - t- T -1 

| DATA| DECLARED ] DEFAULT | | 

|ITEM| ATTRIBUTES | ATTRIBUTES |BYTESj 

t-+-+-+- A 

| I (Dimension (8,5)(FIXED BINARY | 160 | 
j j (Precision (15)j | 

- + -+-+- j 

( A |FIXED BINARY (None | 4 | 

j (Precision (7) ( | j 

^-+-f- -+- A 

( J |STATIC |FIXED BINARY ( 4 | 

| j |Precision (15)| j 

Ir-f-f-+- A 

| Z (Dimension (3) (None | 12 | 

| j FIXED BINARY | | j 

j (Precision (27) j j j 

t- x - x - x - A 

| TOTAL 180 | 

L_J 


Figure 27. Example of Einary Fixed Data 
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Decimal Fixed 


Figure 29 shows the storage require¬ 
ments for the binary float data declared 
Default precision: (5,0) in the following sample statement: 

Maximum precision: (15,0) 

Storage requirements: DECLARE A BINARY, B BINARY(29), C(2,5) 

BINARY(16), D FLOAT BINARY(50); 

1. Descr i ptor 

3 bytes (if required) 

2. Data 

Packed decimal form — 

4 bits = 1/2 byte for each digit. The 
sign is always stored and requires 1/2 
byte. The total storage required must 
be expressible in byte form, i.e., 

+5.2 requires 2 bytes (1/2 byte for 
the sign, 1 byte for the two digits, 

1/2 byte padding). 

Scale factor range: 0 to 15 (if 
present). 

Figure 28 shows the storage require¬ 
ments for. the decimal fixed data declared 
in the following sample statement: 


DECLARE A FIXED, B(5,2,3) FIXED, I FIXED | TOTAL 60 | 

STATIC, Q FIXED(14,2); L---J 


Figure 29. Example of Binary Float Data 


Decim al F loat 

Default precision: 6 decimal digits 
Maximum precision: 16 decimal digits 
Storage requirements: 


1, Descriptor 

2 bytes (if required) 

2. Dat a 

a. Short form (4 bytes) used for less 
than 7 decimal digits. 

b. Long form (8 bytes) used for more 
than 6 decimal digits. 

Figure 30 shows the storage require¬ 
ments for the decimal float data declared 
in the following sample statement: 


DECLARE A (5,3), B FLOAT(8) 

Figure 28. Example of Decimal Fixed Data C DECIMAL(14), D; 


r- t -r- t- 

|DATA| DECLARED | DEFAULT | 

| ITEM| ATTRIBUTES | ATTRIBUTES |EYTES 


A (FIXED 


|DECIMAL j 

|Precision(5, 0) | 3 


B (Dimension 
( (5,2,3) 

|FIXED 


(DECIMAL | 

(Precision(5,0)| 90 


I (FIXED STATIC |DECIMAL | 

J (Precision(5,0) | 3 


Q |FIXED (DECIMAL 

|Precisicn(14,2)| 

_x_x_ 


TOTAL 104 | 

_J 


r- t-t- 

| DATA| DECLARED j DEFAULT 

)ITEM| ATTRIBUTES | ATTRIBUTES 


EYTES 


A |BINARY 


FLOAT 

IPrecisicn (21) 


B j BINARY |FLOAT 

(Precision (29) | 


+- i 

I 40 I 


C (Dimension (2,5)|FLOAT 
jBINARY | 

(Precision (16) | 


+-^ 

I 8 | 


D (BINARY FLOAT (Ncne 
(Precision (50) | 

-x-j- 


Bi nary Float r - T - r - T - 

(DATA| DECLARED | DEFAULT | | 

Default precision: 21 bits |ITEM| ATTRIBUTES I ATTRIBUTES |EYTES| 

Maximum precision: 53 bits ^--}•-[--j--•} 

Storage requirements: | A (Dimension (5,3)|DECIMAL FLOAT | 60 | 

( j (Precision (6) ( j 

1. Descriptor j---j---j---j---j 

2 bytes (if required) j B (FLOAT jDECIMAL | 8 j 

2. Data I (Precision (8) ( ( | 

Hexadecimal floating-point form (see (---j-q-q--f 

the SRL publication IBM_System/360^ | C jDECIMAL |FLOAT ( 8 j 

Principles of Operation, Form ( Precision (14) | 

A22-6821). ” I---I--q-q-( 

a. Short floating-point form (4 ( D (None |DECIMAL FLOAT | 4 | 

bytes) used for a precision of j j (Precision (6) | j 

less than 22 bits. (■ -J--x-x- —j 

b. Long floating-point form (8 bytes) | TOTAL 80 | 

used for a precision of greater *--J 


than 21 bits. Figure 30. Example of Decimal Float Data 


56 




























NUMERIC (PICTURE-SPECIFIED) DATA 

Default precision: not applicable 
Maximum length: after resolution of all 
replications, the picture-specified num¬ 
eric field must not be greater than 32 
characters. The number of possible 
picture-specified digit positions 
depends on whether the number is numeric 
fixed (15 digits) or numeric float (16 
digits). 

Storage requirements: 

1. Descr i ptor 

a7 Fixed-point data — one byte for 
each picture character plus 8 to 
20 bytes, with an average of 12 
additional bytes (if required). 

b. Floating-point data — one byte 
for each picture character plus 20 
to 44 bytes,, with an average of 24 
additional bytes (if required). 

c. Numeric sterling data — one byte 
for each picture character plus 4 
bytes (if required). 

2. Data 

One byte for each picture character 

except for M, V, K, and G. 

Figure 31 shews the storage require¬ 
ments for the numeric data declared in the 
following sample statement: 

DECLARE A PICTURE '$99.99', B PICTURE 
' (8) 9 V (4)9' , C PICTURE '.99K+99V, D 
PICTURE 'ZZ99B9(2)B.9,99'; 


2 • Data 

1 byte per character 

Figure 32 shows the storage require¬ 
ments for the character-string data de¬ 
clared in the following sample statement: 

DECLARE A(5) CHARACTER(20), B CHARACTER 
( 111 ); 

r-r-x- 1 

| DATA ITEM | DECLARED ATTRIBUTES | EYTES | 


J.-+- + -J 

| A | Dimension (5) | 100 | 


A 

1 

1 

X- 

Dimension 

CHARACTER 

( 5) 

( 20) 

1 

| 

100 

1 

1 

. j 

B 

r 

1 

X- 

CHARACTER 

(111) 

1 

-L 

111 

1 

1 

_j 





TOTAL 

211 

T 

1 

_1 


Figure 32. Example of Character-String 
Data 

Bit -St ring D ata 

Default precision: not applicable 
Minimum length: 1 bit 

Maximum length: 64 bits 
Storage requirements: 

1 * Descriptor 

2 bytes (if required) 

2. Da ta 

1 byte for each group of 8 bits or 
part thereof. Packed format is net 
permitted. 


r--T-T-T-1 

I I BEFORE | AFTER | | 

|DATA| REPLICATION | REPLICATION | | 

|ITEM| RESOLUTION | RESOLUTION |EYTES| 

j.-■)-4-4--f 

| A |$99.99 |Same | 6 j 

lr-4-4-4- \ 

j B j(8)9V(4)9 |99999999V9999 | 12 | 

j.-1-4--j--1 

| C |.99K+ 99 jSame | 6 j 

lr-4--4-4- \ 

| D |ZZ99B9(2)B.9,99|ZZ99B9BB.9,99 | 13 j 

^-x-x-x-J 

j TOTAL 37 | 

L_J 

Figure 31. Example of Numeric Data 


Figure 33 shows the storage require¬ 
ments for the bit-string data declared in 
the following sample statement: 

DECLARE A BIT(12), E (11,7,2) BIT (1); 


r- t---t- -\ 

| DATA ITEM | DECLARED ATTRIBUTES | EYTES | 


t--4-4--1 


A 

1 

- X- 

BIT (12) 

1 

4 1- 

2 

B 

-f- 

1 

Dimension 

(11, 7; 2) | 

154 


1 

X. 

BIT (1) 

1 

i 





TOTAL 

156 


Figure 33. Example of Eit-String Data 


STRING DATA 


Pi c ture-Specif i ed Character- String Dat a 


Character- St ring Data 

Default precision: not applicable 
Minimum length: 1 character 

Maximum length: 255 characters 
Storage requirements: 

1. Descriptor 

2 bytes (if required) 


Default precision: not applicable 
Minimum length: 1 character 

Maximum length: 255 characters 
Storage requirements: 

1 • De sc ript or 

2 bytes (if required) 

2. Dat a 

1 byte per character 
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Figure 34 shows the storage require¬ 
ments for the picture-specified character¬ 
string data declared in the following 
sample statement: 

DECLARE A PICTURE ' (105)XV, B 
CHARACTER(105): 

r-T-T- 1 

| DATA ITEM | DECLARED ATTRIBUTES | BYTES | 


It -+-+-f 

| A | PICTURE ' (105)X' | 105 | 


A 

1 

PICTURE • 

(105)X' 

I 

105 

B 

-j.. 

1 

CHARACTER 

(105) 

r 

1 

105 


_X- 









TOTAL 

210 


Figure 36 shows the storage require¬ 
ments for the pointer variable declared in 
the following sample statement: 

DECLARE P POINTER, A BASED (P) FLOAT; 


r- t- 

1 DATA| DECLARED 
|ITEM| ATTRIBUTES 

± - 1 - 

j P | POINTER 


T-T-“1 

| DEFAULT | | 

| ATTRIBUTES |EYTES j 

f---1-1 

|Ncne | 4 | 

.X-X-J 

TOTAL 4 | 


Figure 36. Example of Pointer Data 


Figure 34. Example of Both Character- 

String and Picture-Specified 
Character-String Data 


LAEEL DATA 
Label Variables 


DATA STORAGE DEPENDING CN STORAG E CLAS S 

STATIC and AUTOMATIC data require the same 
amount of storage. No storage is required 
for EASED data. However,, accessing based 
variables by means of pointers requires 4 
extra bytes per reference compared with 
the other storage classes. 


Default precision: not applicable 
Maximum precision: not applicable 
Storage requirements: 8 bytes 

Lab el Cons ta nts 

Default precision: not applicable 
Maximum precision: not applicable 
Storage requirements: 8 bytes for each 
occurrence of the label in an assignment 
statement or in a GO TO statement refer¬ 
ring to a label that is not contained in 
the block containing the GO TO state¬ 
ment. Label constants in R format items 
require 4 bytes. All other label con¬ 
stants do not require storage. 

Figure 35 shows the storage require¬ 
ments for the label data declared in the 
following sample statement: 

DECLARE A LABEL, B(7) LABEL; 


T* 

DATA ITEM | 

... .. i 

- - 

DECLARED ATTRIBUTES | 

BYTES 

. ' ' T 

A | 

I 

LABEL | 

1 

8 

....-- ^ f- 

B | 

1 

_ . . L 

-- + 

Dimension (7) | 

LABEL | 

_ . _L 

56 


TOTAL 

64 


Figure 35. Example of Label Data 
POINTER VARIABLES 

Default precision: not applicable 
Maximum precision: not applicable 
Storage requirements: 4 bytes 


STORAG E OF EXTERNAL_DATA 

Each distinct EXTERNAL variable,, array,, or 
structure requires storage in multiples of 
8 bytes, since padding to the next double- 
word boundary is required if the length of 
the EXTERNAL data item is not 8 or a mul¬ 
tiple of 8 bytes. Figure 37 shews the 
storage requirements of the EXTERNAL data 
declared in the following sample 
statement: 

DECLARE (A BIT(2)„ E(3,2,3) CHARACTER(2)„ 

C CHARACTER (9) ,, D FLOAT (14) , E, 

F PICTURE '$99.99', G FIXED DECIMAL 
(13,2)) EXTERNAL; 


VARIABLE 

i 

1 

f- 

1 

1 

-X- 

DATA 

STORAGE 

BYTE REQUIRED 

T-- T— 

1 1 

| PADDING | 

j. ± 

TOTAL 

A 

T 

1 

-X- 

1 

T 

1 

J_ 

7 

T 

1 

-X - 

8 

B 

T 

1 

-X- 

36 

1 

1 

X- 

4 

T 

1 

-X - 

40 

C 

T 

1 

-X- 

9 

r 

1 

x_ 

7 

T 

1 

_ 

16 

D 

T 

1 

-X- 

8 

T 

1 

X- 

0 

T 

1 

-X - 

8 

E 

T 

1 

-X- 

4 

T 

1 

x_ 

4 

T 

1 

-X - 

8 

F 

T 

1 

-X- 

6 

T 

! 

-X- 

2 

T 

I 

_x_ 

8 

G 

T 

1 

-X. 

7 

—r 

1 

_x_ 

1 

T 

1 

-X_ 

8 


Figure 37. Example of External Data 
Storage 
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USE OF CONSTANTS IN THE SOURCE T EXT 

Constants may appear in the source text 
wherever an expression is permitted. In 
addition, they may appear as replication 
factors, upper bounds of a subscript range 
in the dimension attribute of an array, 
etc. Appearance and representation of 
constants in the object program depends 
entirely on their representation and con¬ 
text in the source program. Only the fol¬ 
lowing three cases are of concern to the 
programmer: 

1. If a constant appears in the source 
text as an argument in a function or 
subroutine procedure, its object-time 
representation is derived directly 
from the source-program representa¬ 
tion. For example,, the statement 

CALL A (1.5, 3.7E-4, 110011B) ; 

results in an object-time FIXED DECIM¬ 
AL representation of the constant 1.5, 
a FLOAT DECIMAL (short float) repre¬ 
sentation of the constant 3.7E-4, and 
a FIXED EINARY representation of the 
constant 110011B. 

Note: If arguments are written as 

constants, these constants are trans¬ 
mitted to the called routine in coded 
form and with the precision derived 
from the source text representation. 
The called routine, in turn, assumes a 
certain internal representation of the 
argument as specified in the parameter 
declaration. The user must therefore 
ensure that base, scale, and precision 
of both arguments and parameters 
match. For instance, declaring the 
first parameter in the above example 
as FIXED (7,1) might lead to an 
object-time error because the called 
program assumes an argument that occu¬ 
pies 4 bytes, whereas the constant 1.5 
occupies only 2 bytes. 

2. If a constant appears in the source 
text as the upper bound of an array 
subscript, the appearance of this con¬ 
stant in the object program depends on 
how the expression used in this sub¬ 
script position is employed in the 
remainder of the source text. At 
best, no constant appears at object 
time for any upper bound. In the most 


unfavorable case, a FIXED BINARY con¬ 
stant appears in the object program 
for every upper bound in the dimension 
attribute of tne DECLARE statement. 
Thus, 


DECLARE A (5„ 7„ 2) ( , B (9, 11); 

may result in, at most,, five FIXED 
BINARY constants in the object pro¬ 
gram. At best, no object-time con¬ 
stant will appear for the five upper 
bounds in the source text. 

3. An object-time constant is derived 
form each source-text constant of a 
certain base, scale, and precision. 
However, base, scale, and precision of 
the object-time constant depend 
entirely on the context in which it is 
used. For example,, the statements 

DECLARE A BINARY; 

A = 1.7; 

cause the constant 1.7 to be stored in 
the object program in floating-point 
form, even though the source-text 
representation is fixed decimal. This 
shows that identically represented 
source-text constants may be converted 
at compile time into a number of dif¬ 
ferent object-time constants (this 
does not apply to constants in DO 
iteration specifications). For 
instance, the following sample 
statements 

DECLARE A FIXED DECIMAL, 

B BINARY, C FIXED BINARY; 

A = 2; 

B = 2; 

C = 2; 

result in three different object-time 
representations of the,single ccmpile- 
time constant 2. Cn the other hand,, 
constants of equal value, base, scale, 
and precision are stored only once in 
the object program unless NOOPT has 
been specified in the PL/I PROCESS 
card. When in doubt about constants 
which appear similar, e.g., 1.2E+7 as 
opposed to 12000000, the programmer 
should review the question of preci¬ 
sion of arithmetic constants in the 
Subset language publication. 
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data_storage_mapping 


This section discusses the location of a 
variable in relation to other variables. 
The location of data with respect to the 
entire program is discussed in the section 
P r • 

Boundary R equirem e nt s 

In the object program, variables that are 
not part of a structure are grouped 
according to certain rules referred to as 
boundary requirements, which depend on the 
hardware configuration of the system used. 
For the System/360, the largest unit of 
storage is the "double word" (8 bytes), 
which must always be on a double-word 
boundary (double-word aligned). That is, 
the first byte of any double word in 
storage must be on an address divisible by 
8. "Full words" (4 bytes) must be full- 
word aligned, i.e., the first byte of any 
full word in storage must be on an address 
divisible by 4. Bit strings, as another 
example, must be byte aligned, i.e., they 
may occur on any byte boundary. If any 
machine address divisible by 8 is chosen 
as arbitrary byte 0, the above boundary 
requirements can be reduced to the 
follcwing: 

• double-word aligned data may appear on 
any byte 0; 

• full-word aligned data may appear on 
any byte 0, 4, 0, 4, etc.; and 

• byte-aligned data may appear on any 

byte 0, 1, 2, 3, ... 7„ 0, etc. 


STORAGE MAPPING — E LEMEN T DATA 

To minimize padding between element data 
items, the DOS/TOS PL/I compiler gathers - 
as far as possible - all element data 
items that are subject to the same boun¬ 
dary requirements. This is done regard¬ 
less of the point of declaration within 
the program. 

The following discusses the possibili¬ 
ties of mapping elementary data items no t 
cont ai n ed in s tr u ct u res o r array s and 
should be understood as an introduction to 
the mapping of structures. 

Much storage can be saved by economic¬ 
ally arranging the individual data types. 
Consider the following example: 

A BIT( 2) , B, C BIT (9),, D; 

The result of left-to-right storage 
allocation is illustrated in Figure 38. 


The total storage requirement in this 
example is 16 bytes, of which 5 are used 
for padding. 


a b e D 



0123456701234567 

Figure 38. Storage Allocation Example 1 


Rearranging the variables as follows: 

A BIT( 2) , C BIT( 9), E, D; 

results in a reduction of the total 
storage requirements to 12 bytes with only 
one padding byte. Figure 39 illustrates 
the storage allocation. 



012345670 123 

Figure 39. Storage Allocation Example 2 

Finally, assume that the variables were 
rearranged as follows: 

B, D, A BIT( 2), C EIT ( 9) ; 

This is the way in which the DOS/TOS PL/I 
compiler gathers elementary data items not 
contained in arrays or structures. The 
total storage requirements would be 
reduced to 11 bytes without any padding. 
The storage allocation is shown in Figure 
40. 


B 

D 

A 

C 


__A____^ 

>—A— k 

/-^- s 

1.i 1 " r .. 

i i i 

i 1 i 

■-1-1-1- 

i 1 1 

■ i i 

□ 

1-1-1 

j ; 1 

0 12 3 

4 5 6 7 

0 

1 2 


Figure 40. Storage Allocation Example 3 


STORAGE MAPPING — ARR AYS 

The storage requirement of an array equals 
the sum of the requirements of the indivi¬ 
dual data items contained in the array. 
Bit-string data items are aligned cn byte 
boundary. Thus, the storage requirement 
of the array declared in the statement 

DECLARE A (5,4,3) EIT(9); 

can be calculated as follows: The number 
of data items in the array is 5x4x3=60. 

Due to boundary alignment, each item 
requires 2 bytes. Total storage require¬ 
ment: 2x60=120 bytes. 


60 












The individual items of an array are 
stored in major row sequence. For the 
above example, this means that the items 
are stored as follows: 

Ml,,1,1) 

A(l,l, 2) 


A (5,4,, 2) 
M5,4,3) 


STORAGE_MAPPING_ z -_STRUCTURES 

To minimize padding, the DOS/TOS PL/I com¬ 
piler gathers - as far as possible - all 
elementary data items that are subject to 
the same boundary requirements. 

In the declaration of a structure, such 
gathering of data is not performed because 
a structure is regarded as one record, and 
the programmer might wish to predestine 
the relative position of every data item 
within that record, e.g., in a punched 
card. Thus, the statement below results 
in the storage allocation illustrated in 
Figure 41. The total storage requirement 
is 12 bytes, including 3 padding bytes. 

DECLARE 1 A ALIGNED, 2 B, 2 C BIT(l),, 2 D; 



01 23 4 5 o 7 0 123 


Figure 41. Storage Allocation Example 4 

In this example, structure A, which has 
the unused 3 bytes between C and D, can be 
thought of as a record without any editing 
descriptors for the components B, C, and 
D. It should not be thought of as a bit 
string because this might lead the pro¬ 
grammer to erroneously assume that the 
first bit of the byte following C is the 
first bit of E. 

Logical_Depth_Ccncept 

In the following discussion, the term 
"logical depth" is used to describe the 
level number of a minor structure or ele¬ 
mentary data item relative to the level of 
the major structure. A minor structure or 
elementary data item can have a high level 
number but be at a relatively low logical 
depth. For instance, in the following 
sample declaration: 

DECLARE 1 A, 

15 B, 

15 C, 

95 D, 

95 E, 

15 F, 

31 G, 


31 H„ 

45 I, 

45 J, 

54 K„ 
54 L; 


structure J has components at logical 
depth 5 although the level number is 54. 
The logical depth of these components is 
greater than that of the components of 
structure C (3), even though their level 
number (54) is not as high. 

When mapping a major structure,, first 
map all minor structures at greatest log¬ 
ical depth n. Then continue with mapping 
the minor structures at logical depth n-1. 
The components that form the minor struc¬ 
ture at logical depth n-1 consist of: 

1. elementary items at logical depth n, 
and 

2. minor structures at logical depth n, 
which have already been mapped. 

After mapping the minor structures at 
logical depth n-1, proceed by mapping all 
minor structures at logical depth n-2. 
Again, the components that form the minor 
structure at logical depth n-2 consist of : 

1. elementary items at logical depth n-1,, 
and 

2. minor structures at logical depth n-1, 
which have already been mapped and 
contain the mapped structures at log¬ 
ical depth n. 

Continuing this process leads to the 
major structure, which is at logical 
depth 1. Mapping of the major structure 
is done by joining the components at log¬ 
ical depth 2. These components consist 
of: 

1. elementary items logical depth 2, and 

2. minor structures at logical depth 2„ 
which have already been mapped and 
contain the mapped structures at log¬ 
ical depth 3. These, in turn,, contain 
the mapped structures at logical depth 
4, et c. 

The storage mapping of structures is 
done according to the set of rules listed 
below. In the mapping process, a com¬ 
ponent (or a group of partially mapped 
components) may be shifted to minimize the 
padding that may be required between the 
component and the component to be 
appended. The opportunity or potential 
for such shifting depends on the stringen¬ 
cy level of the element tc be appended. 

The amount of shifting that is permissible 
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is determined by the alignment require¬ 
ments of the element(s) to be shifted. 

Both the stringency level number and 
the alignment requirements for the indivi¬ 
dual data items are shown in Figure 42. 


Str u cture Mapping Rule s 


1. Locate the first minor structure of 
the greatest l ogical depth. (See 
Figure 43, part A. The declaration 
shewn is used throughout the figure.) 

2. Begin the map with the first element 
of this minor structure. The map 
begins on byte zero (See Figure 43, 
part B). 


3. Append the next element of the minor 
structure at the first following byte 
position where it may be legally 
placed. This byte position is deter¬ 
mined by the alignment requirement of 
the element to be appended. (See 
Figure 43, part E.) 


4. Owing to the alignment requirement, 

some unused space (padding) may result 
between the first and the appended 
element. The preceding element may 
then be shifted to the right provided 
the alignment requirement of that ele¬ 
ment is still satisfied after the 
shifting. If no shifting or only a 
partial shifting is permissible,, the 
padding remains there permanently. 

(See Figure 43, part E.) 
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5. 


The elements so mapped are now per¬ 
manently joined and may be considered 
a single element. The alignment 
requirement of the joined items is 
that of the item of higher stringency 
level. 


6. Repeat rules 3 and 4 for all remaining 
elements of the minor structure. (See 
figure 43, part B.) 


7. Repeat rules 2 through 6 for all minor 
structures of the same logical depth. 
Map all minor structures individually. 
(See Figure 43, part C.) 

8. Repeat rules 2 through 7 for the minor 
structures of the next higher logical 
depth. Elementary items are appended 
according to rules 3 and 4. Minor 
structures are appended beginning at 
the byte position they had when they 
were previously mapped. Padding 
between the two elements, if any, is 
removed by 

a. shifting the succeeding element as 
far tc the left as its alignment 
requirement permits, and 

b. shifting the preceding element as 
far to the right as its alignment 
requirement permits. 


Any padding that remains after these 
two shifting processes remains there 
permanently. (See Figure 43, part D.) 


9. Continue this repetitive process until 
all minor structures are mapped. (See 
Figure 43, part E,) 


10. Map the major structure as if mapping 
a minor structure. (See Figure 43, 
part F.) 


11. If the shifted structure does not 
begin on byte zero,, pad tc the left 
until byte zero is reached. This is 
the physical beginning of the struc¬ 
ture. However, t he name of the major 
s tru ctu re still p oi nts to the firs t 
co mpon e nt o f the stru ctu re . 


12. The first element of the structure 

must begin on byte zero of the struc¬ 
ture being mapped if the structure is 
a based variable and the pointer vari¬ 
able associated with it appears in the 
SET clause of a READ or LOCATE state¬ 
ment. In this case,, the user must 
make sure that the structure begins on 
byte zero. Padding, if required, is 
best done with a dummy variable of the 
CHARACTER type. (See Figure 43, part 
G.) 




DECLARE 1 A ALIGNED, 

2 B DECIMAL FIXED (11), 

2 C, 

3 D BIT (4), 

3 E PICTURE ‘(8)9V(4)9\ 
3 F, 

4 G LABEL, 

4 H PICTURE •9.9KS99*, 
4 I, 

Start ham —» 5 J BIT (7), 

(Rule No. 1) 5 1C FLOAT (6), 

5 L BINARY (32), 

4 M, 

5 N CHARACTER (4), 
5 O FIXED (7,3), 

5 P FLOAT (16), 

2 Q, 

3 R BIT (7), 

3 S, 

4 T LABEL, 

4 U BINARY (20), 

4 V FLOAT (9), 

3 W CHARACTER (3), 

2 X DECIMAL (6); 

Sample Declaration 


© 


J 

5 


Rule No. 2 


Rule No. 3 




H 

■ 














IIMB 



■ 

a 

IBB 






■ 

mumm 


■— i 

PQH 

n 

on 

D 

mmmEMm 



I Rule No. 6 

Application of Structure Mopping Rule* No. 2-6_ 


© 


Rule No. 2 


! I I 


Rule 
.No. 3 


0 1 2 3 4 5 6 7 

N + O P 


US 


-r 


0 16 7 


Rule No. 6 

Application of Structure Mapping Rule No. 7 


Figure 43. Example of Structure Stdrage Mapping (Part 1 of 2) 
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Figure 43. Example of structure Storage Mapping (Part 2 of 2) 
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SUBROUTINE STORA GE REQUIREMENTS 


Three types cf subroutines may be required 
in a program: 

1. Conversion subroutines. 

2. Subroutines called by built-in func¬ 
tion names, pseudo variables, and 
other implied subroutine calls. 

3. Subroutines called by I/C statements. 


CONVERSION SUBROUTINES 

Conversion subroutines are required in the 
object program when certain conversions 
are implicitly requested in the source 
text. For example, the statements 

DECLARE A FIXED BINARY, B FIXED, C 
EINARY; 

A = B + C; 

imply that B is to be converted to binary 
float before being added to C, and that 
the sum is to be converted to fixed binary 
before being stored in A. 

The 18 conversion subroutines (see 
Appendix A) can perform every kind of data 
conversion permitted in the PL/I Subset 
language. Appendix B lists all possible 
combinations cf data conversion and shows 
which subroutines are required to perform 
such conversions. For instance, the conv¬ 
ersion from numeric float to numeric fixed 
decimal requires subroutines 4, 5, and 12 
Subroutine 5 converts from numeric float 
to an internal intermediate form. Subrou¬ 
tine 4 converts from this internal inter¬ 
mediate form to coded fixed decimal. Sub¬ 
routine 12 converts from coded fixed 
decimal to numeric fixed decimal. 

Note: In some cases it may happen that no 

subroutine is used at object time although 
the condition for its inclusion was satis¬ 
fied. In these cases, the user has over¬ 
estimated his storage requirements. 

Average Conve rsi on R equiremen ts 

A system used for scientific purposes will 
normally use subroutines 1„ 2, 7, 8, 9, 

10, and possibly 17 and 18, with a total 
storage requirement of approximately 2K 
for an average program. 

A system used for commercial purposes 
will most likely use subroutines 11 and 12 
with a total storage requirement of appro¬ 
ximately . 7K for an average program. 


BUILT-IN FUNCTIONS, PSEUDO-VARIABLES, AND 
OTHER IMPLIED SUBROUTINE CALLS 

Certain built-in functions and pseudo¬ 
variables require an object-time subrou¬ 
tine for proper functioning. Some of the 
built-in functions only allow float argu¬ 
ments. If an argument is not in this 
form,, it is converted before the subrou¬ 
tine is activated. 

The source text operator ** is an 
implicit request for an exponentiation 
subroutine and, depending on the attri¬ 
butes of the arguments, six different sub¬ 
routines could be required. 

All information required for this type 
of subroutines is listed in Appendix C. 

Depending on the specific arguments, 
seme functions that are marked IL may or 
may not require subroutines. For 
instance,, a fixed first argument in the 
FIXED function would not require a subrou¬ 
tine, whereas a float first argument most 
probably would. However, the subroutine 
used is a conversion subroutine rather 
than a function subroutine. 

The object-time subroutines are cata¬ 
loged in the relocatable library. The 
programmer can find the module name in the 
entry-points column. If a module has more 
than one entry point,, the module name is 
written first. 

Note: For some mathematical functions,, 

the programmer may be interested in 
details such as error statistics and 
algorithms. For such details refer to the 
SRL publication IBM Syst em /360 Operatin g 

System^_PI/ I library Co mp ut a tional Sub r ou- 

tines,, Form GC2 8-65 90. The DOS/TOS PL/1 
compiler uses the same algorithms as the 
OS PL/I compiler. Where applicable, the 
respective internal names of the OS PL/I 
compiler subroutines are given in paren¬ 
theses in the rightmost column cf Appendix 
C. 

Spe cial Not e Rega rd i ng Co mpati bility 

Certain built-in functions available in 
the full PI/I language are not available 
in the PL/I Subset language. Thus,, if the 
name of a user-written function procedure 
happens to be the same as that of an 
unavailable built-in function, the user- 
written function procedure is called if 
the program was compiled by means of the 
DOS/TOS PL/I compiler because the built-in 
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function of that name is not available. 
However, if this program were compiled by 
means of the OS PL/I compiler, the built- 
in function of that name — which, in this 
case, is available — would be called. 

For example: 

A: PROCEDURE; 

X = REAL(Y); 

END; 

REAL is a function procedure. If this 
procedure is compiled by means of the OS 
PL/I compiler, the built-in function REAL 


is called. Therefore,, user-written func¬ 
tion procedures should be named in such a 
manner as to avoid these complications. 


SUBROUTINES CALLED BY I/C STATEMENTS 

Subroutines may be called by I/O source 
statements for use at object time. The 
library subroutines that may be called are 
listed and described in Appendix D. 

Care should be taken that any subrou¬ 
tine called by an I/O statement does not 
itself contain an I/C statement,, a PUT/GET 
STRING statement, or invoke another sub¬ 
routine containing such a statement. 
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I/O STOR AGE REQUIREMENTS 


This section provides the information that 
allows the user to determine the amount of 
storage required for I/C purposes at 
object time, object-time core storage is 
required 

1. as a function of the file declaration 
itself, and 

2. by library subroutines called by I/O 
Statements, such as GET, PUT, etc. 

The library subroutines called by I/O 
statements are listed in Appendix D. 


file_declarations 

Each file declaration requires four items; 

1. Buffers (if required) 

2. DTF table 

3. Appendage 

4. IOCS logic module 

The first three items are unique to 
each declaration. The fourth may be used 
by various file declarations. 


BUFFERS 

The number of buffers and the correspond¬ 
ing storage requirements directly derive 
from the file declaration. 

For files other than REGIONAL or INDE¬ 
XED, the buffer size is equal to the block 
size specified in the F, V„ or U option. 
Thus, 80 bytes are required with the 
option F(80). If, in addition, the option 
BUFFERS(2) is used, the storage require¬ 
ments for the buffers of this file are 
doubled. The total storage required for 
such files equals the sum of the storage 
requirements for all buffers used for all 
these files. 

Note: Nc buffer storage is required if 

the~F or U option is used with unbuffered 
files. 

Additional buffer storage (8 * number 
of extents) is set aside for REGIONAL 
files. 

For REGIONALC3) files the key length 
must be added to the buffer length. 

The buffer storage requirements for 
indexed files can be calculated according 
to the following formulas: 


1• Indexe d sequent ia l in put and update 

unblocked: recsize+2* keylength+10 

blocked: MAX(blocksize,keylength+10+ 

recs ize) 

2• Indexed sequen t ial outp ut 

blocksize+keylength+8+recsize 
[+keylength if unblocked] 

3• Indexed di rect u pdate 

recsize [+keylength if unblocked] 
[+ADDBUFF if specified] 

[+MAX(8+keylength+blccksize, 

8+keylength+10+recsize) if ADDBUFF 
not specified] 

[+INDEXAREA if specified] 

4* Indexe d di rect i nput 

keylength+MAX(blocksize,, 10+recs ize) 
t+INDEXAREA if specified] 


DTF TABLE 

The DTF (Define The File) table is 
required for each declaration. The func¬ 
tion of the DTF table is (together with 
the appendage) to allow communication 
between the object program produced from 
I/O source statements and the DTF program. 
The DTF program in turn communicates with 
the operating system for physical device 
control. 

The DTF table has a fixed length for 
each I/O device type. Figure 44 shews the 
storage requirements for the individual 
DTF tables. 

The number of DTF tables is equal to 
the number of files. The total storage 
required for all DTF tables is, therefore,, 
equal to the sum of their individual 
storage requirements. Thus, an object 
program using three printers and five buf¬ 
fered, blocked-record, magnetic tape files 
would require 

3 x 48 + 5 x 112 = 704 bytes of storage 
for DTF tables. 

A DTFCD table is generated for each 
card device. Figure 45 shews the PL/I 
attributes and the corresponding DTFCD 
parameters. 
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t -*-n 

Storage Requirements 
in Bytes 


|Declaration 
|Specified by File 

J-- 

|Card dev. INPUT 
|Card dev. OUTPUT 
|2540 ,OUTPUT 
|2520,OUTPUT 


56 

48 

136 

56 


Printer 


48 


JUnbuffered 
| magnetic tape 

1 “ 


48 


INPUT! OUTPUT | UPDATE 


(Magnetic tape, 

|other than unbuf- 
jfered,, with the 
|option 


112 | 104 | 

128 J 120 | 

112 j 104 | 


Regional (D* 

| with VERIFY 
without VERIFY 


-- 

|Regional (3)* 

| with VERIFY 
j without VERIFY 

*- 

|Indexed direct* 

|with INDEXAREA* 
j Indexed, 

|sequential* 


216 | 


256 

216 


264 

216 


216 


328 

288 


336 

288 


300 

324 

284 


252 


| 556** 

| 580** 

I 

I 284 


|Note: 4 x extent! 

all values 


h 


number must be added to 
given for indexed files 


Consecutive disk* 
Unbuffered 
F 
V 
U 


152 

136 

152 

152 


152 

160 

176 

168 


| 152 

| 160 
| 192 

| 192 


h 

II 

j.—-- ± -J- 

| * Not permitted for TOS. 

1** Add keylength to this value. 


Figure 44. Storage Requirements for DTF 
Tables 


DTFDI 


240 


240 


240 


A DTFPR table is generated for each 
printer. Figure 46 shows the PL/I attri¬ 
butes and the corresponding DTFPR 
parameters. 

A DTFMT table is generated for each 
magnetic tape drive.. Figure 47 shows the 
PL/I attributes and the corresponding 
DTFMT parameters. 

A DTFSD table is generated for each 
disk file with the CONSECUTIVE option. 
Figure 48 shows the PL/I attributes and 
the corresponding DTFSD parameters. 


PL/I ATTRIBUTES 

_ T -- _ — 

|DTFCD PARAMETERS 

4 

Elocksize in F option 

T ' 

| BLKSI ZE 

Logical device address 
in MEDIUM option 

... |... ..... 

i'devaddr 

1 

1 . 

Dev. type in MEDIUM opt 
2540 

1442 

2520 

2501 

T- 

• 1 

|DEVICE=2540 
|DEVICE=1442 
jDEVICE-2520 
|DEVICE-2501 

4 ... . 

Function attribute 

INPUT 

OUTFUT 

t 

1 

|TYPEFILE=INPUT 
(EOFADDR 
|TYPEFLE=OUTPUT 
|SSELECT-2 

i 

F (blocksize) 

T 

|RECFORM=FIXUNE 

i ... . 

EUFFERS option 

BUFFERS(1) 

BUFFERS (2) 

T 

1 

|IOAREAl 
| IOAREA1 
|IOAREA2 
|IOREG=(2) 

2540, OUTPUT 

| 

|CRDERR=RETRY 

4- 

Control character for 
RECORD I/O 

CTEASA 

CTL360 

T _. - - -- 

1 

1 

|CTLCHR=ASA 
|CTLCHR=YES 
_X-— -- _ 


Figure 45. PI/I Attributes and Corres¬ 
ponding DTFCD Parameters 


PL/I ATTRIBUTES 

“T— - --- 

|DTFPR PARAMETERS 

. i 

Elocksize in F option 

t 

[BLKSI ZE 

1 .... ... . . _ 

Logical device address 
in MEDIUM option 

|DEVAECR 

1 

i _ 

Dev. type in MEDIUM opt 

1403 

1404 

1443 

1445 

T - 

• 1 

j DEVICE=1403 
|DEVICE=1404 
|DEVICE=1443 
|DEVICE=1445 

F (blocksize) 

1 

*| RECFORM=FIXUNE 

4 

EUFFERS Option 

BUFFERS (1) 

BUFFERS(2) 

T 

1 

| IOAREAl 
|IOAREAl 
| IOAREA2 
|IOREG=(2) 

4- 

USAGE attribute 

STREAM 

RECORD 

CTIASA 

CTL360 

1 

1 

|CTLCHR=ASA 
|PRINTOV=YES 
| CTLCHR=ASA 
| CTLCHR= YES 
_4---- 


Figure 46. PL/I Attributes and Corres¬ 
ponding DTFFR Parameters 
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| PL/I ATTRIBUTES 

It- 

|Blocksize in F, 

|V, U option 

It- 

|Recsize in F option 

J"- 

|Logical device address 
|in MEDIUM option 

I---- 

|F, V, U option 


-t- - —1 

|DTFMT PARAMETERS| 

4- 


F (blocksize) 

F (blocksize* 
recsize) 

V (maxblocksize) 
U (maxblocksize) 


|EUFFERS option 


INPUT, V and F 

not UNBUFFERED 


I BACKWARDS 


LEAVE 


h 

|I 

h 

n 

- 

|NOLAEEL option 


| NOLABEL 

| Without NOLABEL 

v - 

|U option, BACKWARDS 

t- 

I INPUT 


BLKSIZE 


RECSIZE 

DEVADDR 


RECFORM=FIXUNB 
RECFORM=FIXELK 
IOREG=(2) 
RECFORM=VARELK 
IOREG=(2) 
RECFORM= UNDEF 


WLRERR 


READ=BACK 
REWIND=NCRWD 


FILABL=NC 

FILABL=STD 


ICREG= (2) 


ERROPT=Library 
routine 

\- 

ju, other than UNBUFFERED!RECSIZE=(4) 
l___ 1 - 

Fiaure 47. PL/I Attributes and Corres¬ 
ponding DTFMT Parameters 

A DIFDA table is generated for each 
disk file with the REGIONAL option. 
Figure 49 shows the PL/I attributes and 
the corresponding DTFDA parameters. 


PL/I ATTRIBUTES 

- T --— - 

|DTFSD PARAMETERS 

j. 

Elocksize in F, 

V, U option 

('blksize 

1 


Recsize in F option 

1RECSIZE 
j 


Device type in 

MEDIUM option 

'| DEVICE” 

1 

1 _ 

2311 

2314 

2321 



1 

1 1 

BUFFERS(1) 

|I0AREA1 

| BUFFERS(1) 

|ICAREA1 

1 l 

BUFFERS(2) 

jI0AREA1 

| EUFFERS(2) 

1I0AREA1 

1 1 


1IOAREA2 


|ICAREA2 

1 1 


|IOREG=(2) 


|ICREG=(2) 

1 l- 


_4- 


4 - 

-1 (Function attribute 

1 

j Function attribute 

1 

1 1 


1 


1 

1 1 

INPUT 

|T YPEFLE =1NPUT 

i 

1 

1 1 


|EOFADDR 

| INPUT 

|TYPEFLE=INPUT 

1 1 

OUTPUT 

|TYPEFLE=OUTPUT 


|EOFADDR 

1 1 

UPDATE 

|TYPEFLE=INPUT 

| OUTPUT 

!TYPEFLE=OUTPUT 

1 1 


J UPDATE=YES 

| INPUT ) 

J TYPEFLE=WCRK 

1 1 


(EOFADDR 

| > UNBUFFERED! 


INFUT ) 

|TYPEFLE=WORK 

| OUTPUT ) 

J EOFADDR 

1 1 

> UNBUFFERED|DELETFL=NO 

1 -- 

4 - 

H 1 

OUTPUT ) 

|EOFADDR 

|V (maxblocksize) OUTPUT 

|VARBLD=(3) 

1 1 

UPDATE UNBUFFERED 

|EOFADDR 


F, V, U option 

F (blocksize) 

(blocks iz e, 
recsize) 

V (maxblocksize) 
U (maxblocksize) 
BUFFERS option 


|RECFORM=FIXUNE 
|RECFORM=FIXBLK 
|IOREG=(2) 

|RECFORM=VARELK 
| IOREG=(2) 

|RECFORM=UNDEF 

4- 


V (maxblocksize) 

- 4 - 

OUTPUT |VARBLD=(3) 

4 

VERIFY 


(' VERIF Y=YES 

. i ... - . 

- - - 


1 

(ERROPT=Library 
j routine 

INPUT or 

UPDATE,, 

_ t ~ - — 

F and V |WLRERR 

j. 

U, other 

T 

than UNBUFFERED!RECSIZE=(4) 


Figure 48„ PI/I Attributes and Corres¬ 
ponding DTFSD Parameters 


APPENDAGE 

The appendage, like the DTF table, con¬ 
sists of information derived from the file 
declaration. It also allows communication 
between the object program produced from 
I/O source statements and the DTF program. 
The length of the appendage is exclusively 
determined by the presence of a single 
attribute or option. If the declaration 
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1. contains the INDEXED option,, the 
appendage length is 40 bytes; 

2. contains the REGIONAL option, the 
appendage length is 56 bytes; 

3. contains the BUFFERED, STREAM, or UPD¬ 
ATE attribute, the appendage length is 
24 bytes; 

4. contains the PRINT attribute or is for 
SYSLST, the appendage length is 32 
bytes; 

5. does not apply to one of the file 
types listed under items 1 through 4, 
the appendage length is 16 bytes. 


The number of appendages is equal to 
the number of files. The total storage 
required for appendages is equal to the 
sum of their individual storage 
requirements. 


|PL/I ATTRIBUTES 

h 


DTFDA PARAMETERS 


Elocksize in E option 

lr- 

|Device type in 
(MEDIUM option 


BLKSIZE 


DEVICE= 2311 
2314 
2321 


h 
1 1 

f- 

n 

- 

|Function attribute and 
| organization option 

| INPUT, REGIONAL(1) 

I 

( OUTPUT, REGIONAL(1) 

I 

| UPDATE, REGIONAL(1) 

I 

I 

| INPUT, REGIONAL(3) 

I 

I 

I 

1 OUTPUT, REGIONALC 3) 

I 

I 

| UPDATE, REGIONAL(3) 


F (blocksize) 


RECFORM=FIXUNB 


BUFFERS(1) 


I0AREA1 


TYPEFLE=INPUT 

READID=YES 

TYFEFLE= CUT PUT 

WRITEID=YES 

TYPEFLE=INPUT 

READID=YES 

WRITEID=YES 

TYPEFLE=INPUT 

READKEY=YES 

KEYARG 

KEYLEN 

TYPEFLE=CUT PUT 

AFTER=YES 

KEYLEN 

TYPEFLE=INPUT 
READYKEY=YES 
WRITEKY=YES 
KEYARG 
KEYLEN 
AFTER=YES 


VERIFY 


VERIFY=YES 


SEEKADDR 

ERRBYTE 

XTNTXIT=IJKTXRM 
C0NTR0L=YES 


Figure 49. PL/I Attributes and corres¬ 
ponding DTFDA Parameters 


H- 


PL/I 

ATTRIBUTES 


DTFIS PARAMETERS 


INPUT 

SEQUENTIAL or 


TYP EFLE = SEQ N TL 
ICAREAS 
IOREG=(2) 
ICRCUT=RETRVE 
KEYARG 1 


INPUT DIRECT 


TYPEFLE=RANDOM 
IOAREAR 
ICREG=(2) 
ICRCUT=RETRVE 
KEYARG (separate) 




OUTPUT 

SEQUENTIAL 


10AREAL 

WCRKL (cnly if blocked) 
IORCUT=LCAD 


UPDATE DIRECT 


TYFEFLE=RANDOM 
10AREAL 2 ,, 4 
WCRKL 2 , 4 
IOAREAR 2 
I0REG= (2) 
I0R0UT=ADDRTR 
KEYARG 1 , 3 


+- 


Device type 


DEVICE=2311, 2314,, or 2321 


VERIFY or 
device 
type = 2321 


VERIFY=YES 


F (a) 

F(a,b) 


RECFCRM=FIXUNE 
RECFCRM= FIX ELK 
NRECDS 
RECSIZE 


KEYLENGTH 

CFLTRACKS 

INDEXMULTIPLE 

EXTENTNUMBER 

KEYICC 

INDEXAREA 


ADDBUFF 

HIGBINDEX 2311 
2314 
2321| 

- f 


KEYLEN 

CYLCFL 

MSTIND=YES 

DSKXTNT 

KEYLCC 

INDAREA 

INDSIZE 

INDSKIP 

ICSIZE 

HINDEX=n 


1 Separate for blocked 

2 L = R possible 

3 Same as WORKL if unblocked 

4 ADD separate 


Figure 50. PL/I Attributes and Corres¬ 
ponding DTFIS Parameters 


A DTFIS table is generated for each 
disk file with the INDEXED option. Figure 
50 shows the PL/I attributes and the 
corresponding DTFIS parameters. 
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A DTFDI table is generated for Stream r - r - r -•, 

files or buffered Record files if | Card | Cne Buffer j Two Buffers J 

| j.- 1 -4- t -f 

1. the logical address specifies SYSIPT, | Files j Input j Output| Input | Output | 

SYSLST, or SYSPCH in the MEDIUM option [■ - 4 - 4 -f- 4 -H 

and | 2540 | 96 | 192 | 128 | 216 | 

f-—-4-4-4-4-* 

2. CTIASk is specified for RECORD OUTPUT j 1442 | 100 | 74 | 132 | 116 j 

files and |r- 4 --j- 4 - 4 -^ 

| 2520 j 96 | 80 | 128 ] 124 j 

3. PRINT attribute is specified for j-- 4 -(•- 4 - 4 -j 

STREAM OUTPUT files | 2501 | 96 | | 128 | — | 

l -x-x-x-x-J 

4. records are of fixed length and 

unblocked and the record size (n) is Figure 52. IOCS Logic Modules for Card 

less than 81 (for SYSIPT) or less than Reading and Punching Devices 

82 (for SYSPCH) or less than 122 (for 
SYSLST). 


Figure 51 shows the PL/I attributes and 
the corresponding DTFDI parameters. 


"T- 1 

| DTFDI PARAMETERS | 

-f- ) 


| PL/I ATTRIBUTES 


Device address in 
MEDIUM option 


DEVADDR=SYSxxx 


BUFFERS(1) 
EUFFERS(2) 


IOAREA1 
10AREA1 
ICAREA2 
I0REG=(2) 


SYSIPT 


ECFADDR= 
ERRCFT=. 
WLRERR=. 


Recsize in F option ] RECSIZE= 
_x_ 


Figure 51. PL/I Attributes and Corres¬ 
ponding DTFDI Parameters 


| Frinter Files 

j. -,_ T - 

| STREAM | RECORD 

[. - T - 4 -T- 

|1 Buffer |2 Buffers |1 Euffer |2 Buffers 

j. -4 - 4 - 4 - 

| 196 | 220 | 118 | 152 

i-x- x -x- 

Figure 53. ICCS logic Modules for 
Printers 


I 

* 

I 

I 

J 


r - r -1-1 

| | Buffered | Unbuffered | 

| j. - 1 - 1 -f I 

|Tape Filesj F | U | V j | 

lr-4-"1--j-4- \ 

| Backwards | 738 | 556 | — j | 

-f-+-+- ) 318 | 

|All others] 690 | 564 | 762 | | 

l _j_x._j_x_J 


Figure 54. IOCS Logic Modules for Magnet¬ 
ic Tape Units 


IOCS LOGIC MODULE 

The IOCS logic module uses the information 
obtained from the DTF table and the appen¬ 
dage, to communicate between the object 
program and the DOS/TOS control program. 
Different IOCS logic modules are used 
depending on the options and attributes 
specified in the file declaration. Files 
having the same options and attributes use 
the same IOCS logic module. For instance, 
any number of file declarations, each of 
which refers to a double-buffered input 
file using a 2540 card reader, would gen¬ 
erate a requirement for one single IOCS 
logic module only. 

The device type is the principal factor 
in determining which IOCS logic module is 
to be used. In Figures 52 through 57, the 
individual modules are therefore grouped 
according to device types. The storage 
required for each module is stated in 
bytes. 


If both BACKWARDS and non-BACKWARDS 
modules are used in the same program, only 
the EACKWARDS module is included. 


— — r - 

1 

Disk f- 
Files |1 

11 

i 

Consecutive 

T 

|Regional 

X 

Jn- 

Duffered 

i 

1 

\ 

t 

Euffered 

1 

1 

1 

T 

1 

1 

1 


1 

1 

.I 


r 

1 

-X- 

F | V | 

T 

0 1 

1 

1 1 

3 

T 

Input | 

I 

682 

T 

1 

| . | 
546 | 746] 

. 4 4 

_ _j__ 

618 1 
4- 

_ _ 4_ 

39 2 j 
_4_ 

392 

—r~ 

Output| 

i. 

682 

T 

1 

-X- 

5 7 41" 11661' 

X X 

730]' 

3 92 | 

696 

T 

Update| 
_ X. 

722 

T 

1 

_X_ 

91o'|1255 , |1062 | 

__ 

39 2 j 

696 


Figure 55. ICCS Logic Modules for Disk 
Units (other than INDEXED 
Files) 
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| Disk 

I 

I Indexed Files 


Input j Outputj 


Update 


| | y - T --j 

| j jBlocked|Unbl.| 


Ex a mpl e 4 


DECLARE TAPEBF FILE RECORD BACKWARDS 



4" 

— 

—| - 

--+-f 

UNBUFFERED ENVIRONMENT (U(512) MEDIUM 

|Sequential j 

1086| 

803 

| 1086 

|1086 | 

(SYS004, 2400) 

LEAVE NOLAEEL) 

1 

|Direct | 

|with INDEXAREA j 

990 | 
1138 | 


| 2948 
| 3162 

1 2752 | 

| 2966 | 

Buffers 

0 

bytes 

| with ADDBUFF | 

— 1 

— 

| 3220 

1 2936 | 

DTF table 

48 

bytes 

L -- X 


— 

-l _ . 

- X _J 

Appendage 

16 

bytes 

Figure 56. IOCS 

Logic 

Modules for 

Disk 

IOCS logic 

module 318 

bytes 

Units 

( INDEXED 

Files) 


Total 

382 

bytes 


y - 

|Input 
|Output 
l _ 


|BUFFERS(1) BUFFERS(2) 


308 

643 


368 

723 


Exa m ple 5 

DECLARE DISK1F FILE STREAM INPUT ENVIRON 
MENT (F(1739) BUFFERS (2) MEDIUM (SYS001 
2311)); 


Figure 57. IOCS Logic Module for DTFDI 
Files 


EXAMPLES 

The following examples show the storage 
requirements for buffers, DTF table, 
appendage, and IOCS logic module. 

Exam pl e 1 

DECLARE PUNCHF FILE OUTPUT ENVIRONMENT 
(F (80) MEDIUM (SYSPCH, 2540)); 


Buffers 



80 

bytes 

DTF table 



136 

bytes 

Appendage 



24 

bytes 

IOCS logic 

module 

192 

bytes 

Total 



432 

bytes 

Example_2 





DECLARE PRINTF 

FILE 

STREAM OUTPUT PRINT 

ENVIRONMENT (CONSECUTIVE 

F(121) BUFFERS 

(1) MEDIUM (SYSLST, 

2400)); 


Buffers 



121 

byt es 

DTF table 



240 

bytes 

Appendage 



32 

bytes 

IOCS logic 

module 

690 

bytes 

Total 



1083 

bytes 

Exarrple_3 





DECLARE TAPEFF 

FILE 

RECORD UNBUFFERED 

ENVIRONMENT (U(512) 

MEDIUM (SYS004, 2400) 

LEAVE NOLABEL) 

r 




Buffers 



0 

byt es 

DTF table 



48 

bytes 

Appendage 



16 

bytes 

IOCS logic 

module 

318 

bytes 

Total 



382 

bytes 


Euffers 

DTF table 

Appendage 

IOCS logic module 


3478 bytes 
136 bytes 
24 bytes 
546 bytes 


Total 


4184 bytes 


Exa mpl e 6 

DECLARE DSKF FILE RECORD UPDATE BUFFERED 
ENVIRONMENT (F(1024, 256) BUFFERS (1) 
MEDIUM (SYS002, 2311)); 


Buffers 

DTF table 

Appendage 

IOCS logic module 


1024 bytes 
160 bytes 
24 bytes 
910 bytes 


Total 


2118 bytes 


Exam pl e 7 

DECLARE DSKR3F FILE RECCED OUTPUT DIRECT 
KEYED ENVIRONMENT (REGIONAL (3) F(800) 
MEDIUM (SYS003, 2311) KEYLENGTH (9)) 


Euffers 809 bytes 
8x3 extents (default) 24 bytes 
DTF table 288 bytes 
Appendage 56 bytes 
IOCS logic module 696 bytes 


Total 1873 bytes 

Example 8 

DECLARE DSKR1F FILE RECCED UPDATE DIRECT 
KEYED ENVIRONMENT (REGIONAL (1) F(600) 
MEDIUM (SYS004, 2311)); 


Buffers 600 bytes 
8x3 extents (default) 24 bytes 
DTF table 216 bytes 
Appendage 56 bytes 
IOCS logic module 392 bytes 


Total 1288 bytes 
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Exanf£le_9 


DECLARE TAPERF FILE RECORD INPUT EUFFERED 
ENVIRONMENT (V(2048) BUFFERS (2) MEDIUM 
(SYS005, 2400)); 


Buffers 

DTF table 

Appendage 

IOCS logic module 


4096 bytes 
128 bytes 
24 bytes 
762 bytes 


Total 


5010 bytes 


Exaniple_10^ 


DECLARE INDSQI FILE RECORD INPUT KEYED 
ENVIRONMENT ( F(800,80) MEDIUM (SYS011, 
2314) INDEXED KEYLENGTHCIO) EXTENTNUMEERC 
3) INDEXMULTIPLE KEYLOCC15)); 


Euffers 800 bytes 
DTF table 296 bytes 
Appendage 40 bytes 
IOCS logic module 1086 bytes 


Total 2222 bytes 

Ex ample 11: 

DECLARE INDDUP FILE RECORD UPDATE DIRECT 
KEYED ENVIRONMENT (F (800,80) MEDIUM 
(SYS012,2321) INDEXED KEYLENGTHC12) VERIFY 
EXTENTNUMBERC2) OFLTRACKS(3) KEYLCC(23) 
ACDBUFF(1688)); 


Euffers 

DTF table 

Appendage 

IOCS logic module 


1768 bytes 
576 bytes 
40 bytes 
3 220 bytes 


Total 


5604 bytes 


Note: If all of tne file declarations 

shown in these examples were to appear in 
the same program, the total storage 
requirements would be less than the sum of 
the individual storage requirements 
because, in a few cases, different file 
declarations would use the same IOCS logic 
module. 


SYSTEM UNITS 


SYSPRINT 

The storage required for the DTF table, 
appendage, and IOCS logic module for SYS¬ 
PRI NT is 416 bytes for TCS and 424 bytes 
for DOS. If DOS allows a 2311 as SYSLST, 
688 bytes are required. 


SYS IN 

The storage required for the DTF table, 
appendage, and IOCS logic module is 192 
bytes for TCS and 216 bytes for DOS. If 
DOS allows a 2311 as SYSIPT, 408 bytes are 
required,. 


No te: If SYSIN and SYS PRINT are used in 

one program, the storage required for both 
is 568 bytes for TOS and 600 fcr DOS. The 
storage requirement is 920 bytes for EOS 
if a 2311 is permitted for SYSIPT or 
SYSLST. 
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PROGRAM OVERHEAD 


Object-program overhead derives from the 
following two sources: 

1. The DOS/TOS Supervisor, the size of 
which is installation-dependent. 

2. The general PL/I overhead area, which 
exists as a function of the PL/I 
source text. This area comprises the 
following four parts: 

a. The static storage area. 

b. The dynamic storage area. 

c. The block prologue. 

d. The PL/I control module. 


THE STATIC STORAGE AREA 

Static storage is required by the seven 
items listed below. (Note that internal 
blocks require only the static storage 
listed under items 5-7.) 

1. A constant basis of 132 bytes. 

2. All variables in any block declared 
with the attribute STATIC. 

3. Constants used in the source text. 

4. Four bytes for 

a. each library subroutine explicitly 
cr implicitly used in the source 
text; 

b. each reference to a procedure that 
is external to the procedure under 
construction; and 

c. each distinct data item contained 
in any block and declared with the 
attribute EXTERNAL. 

5. A communications area of 4 bytes. 

6 . An entry table with a minimum length 
of 4 bytes. If the block is a proce¬ 
dure, an additional entry of 4 bytes 
is made for each ENTRY statement in 
the block. 

7. An entry of 8 bytes is made for the 
occurrence of each dif fer ent condition 
in any ON statement internal to the 
block. 

Since items 1, 5, and 6 are always 
required, the minimum static storage area 
required is 140 bytes, even for the most 
trivial procedure. For example, 

A: PROCEDURE OPTIONS (MAIN); 

END; 


Exampl es of C al cu la ting S ta t ic Storage 
Requi rem ents 

The following procedure: 

A: PROCEDURE OPTIONS (MAIN); 

DECLARE B FIXED EINARY STATIC; 

C: PROCEDURE; 

D: ENTRY; 

RETURN; 

END; 

E: BEGIN; 

DECLARE I STATIC; 

I=1101E; 

END; 

F: ENTRY; 

END; 

consists of the blocks A„ C, and E. The 
static storage requirements of the indivi¬ 
dual blocks are discussed in terms of the 
items 1 through 7 listed above. 


Bl oc k A 


1 . 

132-byte basis 


132 

byt es 

2 . 

Two variables 

with the STATIC 




attribute 


8 

bytes 

3. 

One constant 


4 

bytes 

4. 

Communications 

area 

4 

bytes 

5. 

Entry table of 

4 bytes minimum 



plus 4 bytes for entry point 

F 8 

bytes 



TOTAL 

156 

bytes 

Block C 




1 . 

Communications 

area 

4 

bytes 

2 . 

Entry table 


8 

bytes 



TOTAL 

12 

byt es 

Block E 




1 . 

Communications 

area 

4 

bytes 

2 . 

Entry table 


4 

bytes 



TOTAL 

8 

bytes 


Consider another external procedure A 
that contains no other blocks. It uses 
400 bytes of static data storage 
(variables and constants). It requires 
five library subroutines explicitly and 
three library subroutines implicitly. 
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Three procedures external to A are 
referred to in procedure A. Six variables 
are declared with the attribute EXTERNAL. 
The procedure has seven secondary entry 
points and contains six CN statements, of 
which four have differing conditions. 
External procedure A would require the 
following static storage: 


1 . 

132-byte basis 

132 

bytes 

2 . 

STATIC variables 

400 

bytes 

3. 

Constants 



4. 

a. 8 library subroutines 

32 

bytes 


b. 3 procedures external to 

A 12 

bytes 


c. 6 EXTERNAL variables 

24 

bytes 

5. 

Communications area 

4 

bytes 

6 . 

Entry table 

32 

bytes 

7. 

Four ON statements with 
differing conditions 

32 

bytes 


TOTAL 

668 

bytes 


Block X 


1 . 

Communications area 


4 

bytes 

2 . 

Entry table 


12 

bytes 

3. 

One ON statement 


8 

bytes 



TOTAL 

24 

bytes 

Block Y 




1 . 

Communications area 


4 

bytes 

2 . 

Entry table 


16 

bytes 

3. 

Three differing ON 

conditions 

24 

byt es 



TOTAL 

44 

bytes 

Block Z 




1 . 

Communications area 


4 

bytes 

2 . 

Entry table 


4 

bytes 



TOTAL 

8 

bytes 


Finally, consider a third external pro¬ 
cedure W that contains two other proce¬ 
dures, X and Y. Procedure Y contains a 
BEGIN block Z. 


The total static storage required by 
external procedure W thus amounts to 

1040 + 24 + 44 + 8 = 1116 bytes 


W uses 400 bytes of static data 
storage, X and Y each use 100, and Z uses 
200 bytes. Procedure W requires 3 library 
subroutines, X requires 2, Y requires 5., 
and Z requires 13. The library subrou¬ 
tines used in blocks W,, X, and Y are all 
different. The 13 subroutines used by Z 
comprise 3 that are required by other 
blocks. No procedure external to W is 
referred to, and there is no EXTERNAL 
data. Procedure W has 5 ENTRY statements, 
X has 2, and Y has 3. There are no ON 
statements in W, 2 ON statements with 
identical conditions in X, 3 ON statements 
with differing conditions in Y, and no ON 
statement in Z. 

The static storage requirements for the 
individual blocks are as follows: 


IT - 

132-byte basis 

132 

bytes 

2 . 

STATIC variables 

800 

bytes 

3 . 

Constants 



4 . 

A total of 20 library 
subroutines 

80 

bytes 

5. 

Communications area 

4 

bytes 

6. 

Entry table 

24 

bytes 


TOTAL 

1040 

bytes 


THE DYNAMIC STORAGE AREA 

Each blocks has its own dynamic storage 
area. The dynamic storage area is zero 
when the block is not active. The length 
of the dynamic storage area when the block 
is active is determined by the following 
five items: 

1. Data with the attribute AUTOMATIC,, 
either declared or by default. 

2. A communications area of 80 bytes. 

3. Four bytes for each different paramet¬ 
er to be transmitted to this block. 

4. Working storage area I: 

This area is used tc store intermedi¬ 
ate results of arithmetic expressions. 
The length of this area is a function 
of the complexity of the source text. 
For a program with arithmetic data 
only,, the average length of this area 
is approximately 36 bytes. However, 
if the expressions contain character 
strings, the length increases with the 
length of the character strings. 

5. Working storage area II: 

This area is used tc store expressions 
contained in DC loops. DO statements 
may be of either one cf the following 
three forms: 
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a. DO var=expr-l*expr-2,... ,expr-n; 
For such DO statements,, the expre¬ 
ssions are developed and stored 
directly in the variable so that 
no additional storage is required. 

b. DO var=expr-l TO expr-2; or 
DO variable=expr-1 BY expr-2; 

16 bytes are required for each DO 
statement of this form,, regardless 
of the number of iteration speci¬ 
fications in each statement. 

TO BY 

c. DO var=expr-l expr-2 expr-3; 

BY TO 

24 bytes are required for ea ch DO 
statement of this form, regardless 
of the number of iteration speci¬ 
fications in each statement. 

The information required to determine 
which iteration specification is being 
operated upon is also stored in work¬ 
ing storage area II. Each DO state¬ 
ment with more than one iteration spe¬ 
cification requires additional bytes 
to service all iteration specifica¬ 
tions. Thus, e ac h DO statement 
requires zero, 16, or 24 bytes for 
storing expressions within iteration 
specifications, plus 8 bytes if there 
is more than one iteration specifica¬ 
tion for the DO statement. 


Example of Calcu la ting Dynam ic Sto ra ge 
5®3ui.2i§2!ents 

Assume a procedure consists of the extern¬ 
al procedure A, which contains the intern¬ 
al procedures B and C. Internal procedure 
C contains the BEGIN block D. A and E 
each have 400 bytes of AUTOMATIC data, C 
has 200, and D has 100 bytes of AUTOMATIC 
data. Procedures A, B„ and C have only 
one entry point (their primary entry 
point), and each procedure has a list of 
five parameters. Only coded arithmetic 
data is used. The dynamic storage 


requirements of the individual blocks 
then as follows: 

are 

Block A 

1. Data 

400 

bytes 

2 . 

Communications area 

80 

bytes 

3 . 

Parameter storage 

20 

bytes 

4 . 

Working storage area I, 

36 

bytes 

5 . 

Working storage area IT (de¬ 
pends on complexity of DO's) 

96 

bytes 


TOTAL 

632 

bytes 


Block B 




1. 

Data 


400 

byt es 

2. 

Communications area 


80 

bytes 

3. 

Parameter storage 


20 

bytes 

4. 

Working storage area 
approx. 

I „ 

36 

bytes 

5,. 

Working storage area 
approx. 

Hr 

32 

bytes 



TOTAL 

568 

bytes 

Block C 




1. 

Data 


200 

bytes 

2. 

Communications area 


80 

by t es 

3. 

Parameter storage 


20 

bytes 

4 . 

Working storage area 
approx. 

I w 

36 

bytes 



TOTAL 

336 

bytes 

Block D 




1. 

Da ta 


100 

bytes 

2. 

Communications area 


80 

bytes 

3. 

Working storage area 
approx. 

Ir 

36 

byt es 

4 . 

Working storage area 
approx. 

Hr 

32 

bytes 



TOTAL 

248 

bytes 


The total requirement for dynamic 
storage at a given moment depends on which 
blocks are simultaneously active. The 
total storage required is the sum of the 
dynamic storage areas fcr the active 
blocks. In the above example, this is a 
minimum of 632 bytes. If all blocks are 
active simultaneously, the dynamic storage 
requirements amount to 1784 bytes. 


THE BLOCK PROLOGUE 

The prologue is a set of instructions 
generated for a PROCEDURE, ENTRY, or BEGIN 
statement. The generated instructions 
vary depending on the statement. The 
minimum prologue is 52 bytes. The maximum 
is approximately 140 bytes. The minimum 
prologue is used whenever the block is a 
BEGIN block. In all other cases, the 
average is approximately 60 bytes per pro¬ 
logue. A secondary entry point with 12 
arguments results in the maximum cf 140 
byt es. 
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THE PL/T CONTROL ROUTINE 

The PL/I control routine is a library sub¬ 
routine, which is always required in 
storage for PL/I programs. It is respons¬ 
ible for the interaction of the individual 
PL/I program components. Some of its 
functions are listed below: 


1. Dynamic storage allocation. 

2. Hardware interrupt servicing. 

3. Handling of ON conditions. 

4. Constructing diagnostic messages. 

5. Terminating execution. 


6. Transmitting communications informa¬ 
tion from block to blcck. 

7, Providing library work space. 

The PL/I control routine is fixed in 
length (approximately 1500 bytes) and is 
present only once in a PL/I program, 
regardless of the complexity of blocking 
structures, the number of external proce¬ 
dures, and depth of overlaying. 


Note: In the discussion of the program 

overhead, it was shown where the STATIC 
and AUTOMATIC data will be. In all furth¬ 
er references, the term "overhead" is used 
for the actual overhead w it h ou t data and 
without the DCS/TCS control program. 
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SOURCE TEXT AND OBJECT PRO GRA M 


After having estimated the storage 
requirements of (1) data, (2) library sub¬ 
routines, (3) file declarations, and (4) 
overhead contained in the program, the 
user can determine what part of the total 
storage capacity is left for the remaining 
part of the program. The remaining part 
mainly consists of (1) in-line instruc¬ 
tions produced directly from, the source 
text and (2) calling sequences to subrou¬ 
tines for those operations that cannot be 
done in line. 

What instructions are produced from the 
source text can be shown by a simple 
example. 

DECLARE A FIXED DECIMAL; 

A = B * C + D; 


The instructions produced from the assign¬ 
ment statement might be as follows: 

• In-line instruction to load B into 
some register. 

• In-line instruction to multiply C 
(floating-point multiplication) with 
the contents of this register. 

• In-line instruction to add D 
(floating-point) to the contents of 
this register. 

• Calling sequence(s) to convert the 
contents of this register to fixed 
decimal form. 

• In-line instruction to store the 
result in A. 

Calling sequences can be avoided in 
some cases, e.g., in the example shown 
above by giving A the attributes FLOAT 
DECIMAL instead of FIXED DECIMAL. To save 
storage, the user should, therefore, write 
his programs in such a manner as to avoid 
unnecessary calling sequences. 

The above example shows that a series 
of instructions is generated for a single 
PL/I statement. The number of generated 
instructions depends on the form and com¬ 
plexity of the respective statement. The 
number of instructions generated for a 
source-text DO statement, for instance, 
depends on the complexity of the expre¬ 


ssions within an iteration specification, 
the number of options chosen, and the 
number of iteration specifications. 

However, the following average values can 
be assumed: 

1. In a purely scientific environment, 
the average PL/I source statement 
generates ten 4-byte instructions. 

2. In a purely commercial environment, 
the average PL/I source statement 
generates seven 4-byte instructions. 

3. These average values are considerably 
increased by an excessive use of con¬ 
versions of base or scale and GET and 
PUT statements in either scientific or 
commercial environments. 

4. Parameters as well as BASED and 
EXTERNAL data require 4 bytes in addi¬ 
tion to the storage requirements cf 
the data item. 

Thus, if 5000 bytes are available for 
the object program, the user may assume 
that approximately 125 PL/I statements 
(scientific environment) or 178 PL/I sta¬ 
tements (commercial environment) can be 
accommodated in this area. if the program 
exceeds this number of statements, the 
user must either shorten the function of 
the program or use the overlay feature. 
(Refer to the section Overlay.) 

Not e: If listing of source-program state¬ 

ment numbers in case of execution-time 
errors is requested (by specifying STMT in 
the PL/I FRCCESS card), the additional 
storage requirements are 4 bytes for each 
time the statement number appears in the 
object-program listing. 

PROBLE M AN ALYS IS EXAMPLE 

A tape system that has a storage capacity 
of 16K is used for maintaining files. The 
problem program consists of 3 phases. 

Phase 1 reads transaction cards (cne 80- 
column card per transaction) and sorts, 
edits, and writes the contents cf these 
transaction cards on a magnetic tape file. 
Phase 2 reads the old master file, a tran¬ 
saction card, and writes a new master file 
record. Both of these operations involve 
magnetic tapes for old and new master 
records. An exception report is written, 
if necessary, on a fourth magnetic tape. 
Phase 3 takes the exception file and pre¬ 
pares it with appropriate headings. 
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In the following example, only the 
storage requirements for phase 2 are 
examined. 


FILE DESCRIPTION 

QM_Mas ter_File: Unblocked, 3 20-character 
records of fixed length. 

Ne w Mas te r File; Unblocked, 320-character 
records of fixed length. 

Transactio n File. Unblocked 80-character 
records of fixed length. 

Exc e ption File : Unblocked 100-character 
records of fixed length. 


DATA ASSUMPTIONS 

Due to the requirements of temporary 
storage, arithmetic statements, etc., 50 
variables and constants are used in addi¬ 
tion to the data read from and written 
into files. All data is describable in 
terms of pictures and character strings; 
no data is read or written in packed mode. 


OTHER ASSUMPTIONS 

1. Each file has only one buffer. 

2. The data is processed in its respec¬ 
tive buffer by use of the READ SET or 
LOCATE SET statements. 

3. The program can be written in one 
block. 

4. The problem does not necessitate 
inter-phase communication. 

5. If conversions from numeric fixed to 
coded fixed become excessive, the user 
will convert the data items once and 
use the coded fixed form for subse- 
que nt comput ations. 


STORAGE REQUIR EMEN TS 

The storage requirements are as follows: 

1. Data 

a. Data read from, or written into, 
files are accounted for in 
buffers. 

b. 30 variables (XXXX.XX) 120 bytes 

20 constants (XXX.XX) 60 bytes 

c. Descriptors approximately 150 bytes 

TOTAL approx. 330_byt.es 


2. No n-I/ O Subroutines 

Numbers 11 and 12 



TOTAL 

640 bytes 

File Descriptions 



a. 

Buffers - 

820 

bytes 

b. 

DTF tables - 

368 

byt es 

c. 

Appendages - 

96 

bytes 

d. 

ICCS logic modules - 

690 

bytes 


TOTAL 

1974 

bytes 

I/O 

Subroutines 



Number 6 




TOTAL 

652 

bytes 

Overhead 



a. 

Static - approx. 

160 

bytes 

b. 

Dynamic - approx. 

150 

bytes 

c. 

Prologue - approx. 

60 

bytes 

d. 

PL/I control - approx. 

1500 

bytes 


TOTAL approx. 

1870 

bytes 


6 - DOS/ T OS Control P rogram 
approx. 6150 bytes 

G RA N D TO TA L app rox. 11,616 bytes 

This means that approximately 4,770 
bytes of storage are available for the 
actual program, so that the approximate 
number of PL/I statements that would fit 
into storage is 160. 

After having programmed the problem,, 
the user would determine whether or not he 
can change the buffering to allow for 
faster transaction processing. If the 
data read and/or written are changed into 
packed form, the buffer requirements are 
reduced, and the non-I/O subroutines of 
640 bytes would not be required. This 
would allow for approximately 30 addition¬ 
al PL/I statements. 
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OVERLAP 


If certain parts of an object program are 
not required in storage throughout its 
execution and never simultaneously 
required in storage, the same storage area 
can be used to store these parts to reduce 
the overall requirements of the program. 

Each part of the program that will 
reside in storage only for a fraction of 
the execution time is referred to as an 
overlay. The MAIN procedure must not be 
used as an overlay. Each overlay as well 
as any portion of the program that resides 
in storage throughout the execution is 
referred to as a phase. A phase consists 
of one or more external procedures. 

The PL/I subset does not provide direct 
overlay facilities. However, overlays can 
be performed by using the library subrou¬ 
tine OVERLAY that provides a link to the 
operating system which,, in turn, loads the 
actual overlay. (Refer to the SRL publi¬ 
cations describing the DOS/TCS control and 
service programs.) The statement calling 
the overlay must be coded as follows: 

(label:] ... CALL OVERLAY 

(character string expression - max. 
length 8) 

For example, LINK: CALL OVERLAY 
('PHASE5'); 

The overlay call activates the OVERLAY 
subroutine and transmits the name of the 
phase to be fetched to the control pro¬ 
gram. The control program locates this 
phase on the external medium. The phase 
is then loaded into storage. It must not 
overlay the fetching procedure. Finally, 
control is returned to the fetching 
procedure. 

Rules for Us in g Ov e rla y 

The following 17 rules should be observed 
when using overlay calls: 

1. After the phase has been entered in 
storage, it must be activated by means 
of a call to the procedure name or any 
of its entry points. 

2. The phase name is independent of the 
procedure name. It is assigned by 
means of a PHASE card during proces¬ 
sing by the Linkage Editor. 

3. A fetching phase (i.e., a phase acti¬ 
vating an overlay) may have been 
fetched into storage by a preceding 


fetching phase. A series of succes¬ 
sive fetching phases is referred to as 
a tree structure (see Figure 58). The 
principal fetching phase of a tree 
structure is referred to as the rcot. 

A phase within the tree structure 
which is not a fetching phase is 
referred to as a leaf- 

4. A fetching phase may fetch any phase 
lower than itself in the tree struc¬ 
ture,, provided the fetched phase is on 
the same branch as the fetching phase, 

5. If a phase fetches a phase more than 
one level below it, an empty space is 
left in storage for each phase between 
the fetching and the fetched phase. 

6. The root cannot be overlaid. It 
resides in storage throughout the 
execution of the problem program. 

7. A phase may be activated at any time 
after it has been fetched,, provided it 
has not been destroyed. 

8. Fetching a phase already fetched into 
storage causes a new copy of that 
phase to be fetched into storage. All 
variables of that phase which are in 
static storage have no known value. 

9. Data to be known in more than one 
phase may be given the EXTERNAL attri¬ 
bute or be transmitted through argu¬ 
ment lists of the CALL statement. 
External names that are to be common 
to more than one phase belew the rcct 
level must be declared to be external 
both in the affected phases and in the 
root. For larger volumes of data, the 
use of the EXTERNAL attribute general¬ 
ly requires less storage than argument 
transmission. Where the argument 
names change,, argument transmission is 
normally more economical than giving 
the data the EXTERNAL attribute. 

10. External names of procedures to be 
fetched must be unique (see Figure 
58.) 

11. A library subroutine is incorporated 
in every phase in which it is used if 

a. the subroutine is used in a proce¬ 
dure below the root level; and 

b. that subroutine is not in the 
root. The multiple appearance of 
the subroutine can be avoided by 
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incorporating it in the root 
through the use of an INCLUDE sta¬ 
tement during link-editing so that 
it appears only in the root. 



Note: The ROOT phase may fetch any phase, A through O. Phase A 

may fetch any phase, C through L.Phase B may fetch any phase, 
M through O. Phase C may fetch phases F and G. Phase E may 
fetch any phase, H through L. Phase H may fetch phases J 
through L. Phases D, M, N, O, F, G, I, J, K, and L are 
leaves. 


modules in the root by means of the 
Linkage Editor control statements 


INCLUDE IJKSYSA (for PUT) 
INCLUDE IJKSYSI (fCr GET) 


In all other cases, the standard files 
cannot be closed, and an error will 
occur at End-of-Job. 


14. If the object-time diagnostic messages 
are to include the numbers of the 
source statements causing the errors,, 
STMT must be specified in the PROCESS 
card for at least one external proce¬ 
dure contained in the root phase. 

15. The time to find and transfer a phase 
to core storage requires between 200 
and 600 msec for DCS, depending on the 
phase length. A 10K phase, for 
example, would require approximately 
350 msec. 

16. The time required to find and transfer 
a phase to core storage for TOS 
depends on the physical location of 
the phase on SYSLNK. 


Figure 58. Schematic Representation of a 
Tree Structure 

Note; Care should be taken if relo¬ 
catable modules that are not PL/I 
library subroutines are to be included 
into more than one phase by the auto¬ 
link feature. For details, refer to 
the SRL publications describing the 
DOS/TOS system control and system ser¬ 
vice p rcg rams. 

12. If many phases from different branches 
of the tree structure activate the 
same procedure, this procedure may be 
incorporated in the root in a manner 
similar to the inclusion of subrou¬ 
tines (see rule 11). 

13. If (1) the declaration of a file is 
made internal to some phase which is 
not the root, (2) this file is opened 
in this phase, and (3) the phase is 
about to be overlaid with a phase from 
another branch of the tree structure, 
the user must close this file before 
it is destroyed. This restriction 
does not apply if the file is declared 
both in the root and in a lower phase. 

Note: If the PL/I standard files are 

used (by a GET or PUT statement) in a 
phase other than the root, these files 
must either be used in the root phase, 
too, or in a phase that will not be 
further overlaid. Another possibility 
is to include the corresponding 


17. Different modules to be included from 
the relocatable library may be ident¬ 
ical except for one cr more additional 
entry points in one of these modules. 
If the module without the additional 
entry point(s) is contained in the 
root phase, calling cf the module with 
the entry point(s) in overlay phases 
will result in an errcr during 
link-editing. 

For instance, the PL/I library rou¬ 
tines IJKTSTM and IJKTLCM have the 
following entries: 


- T' 

Module Name | 

. i 

IJKTSTM 

- T” 
1 

-1- 

IJKTLCM 

1 

Entry j 

IJKTSTM 

T 

1 

IJKTSTM 

Names | 

IJKTSTN 

1 

IJKTSTN 

1 

IJKTSTR 

1 

IJKTSTR 

1 


1 

-X. 

IJKTLCM 


(IJKTSTM is used for stream I/O, 
IJKTLCM is used for stream I/O with 
COLUMN or LINE.) 

If IJKTSTM is contained in the root 
phase, calling of IJKTLCM in an over¬ 
lay phase will result in an error dur¬ 
ing link-editing. To avoid such 
errors, the module containing the 
additional entry (IJKTLCM in this 
case) must be included in the root 
phase by means of an INCLUDE 
statement. 
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Ove r la^r_]E3ca.it}£le 

Assume that some program consists of one 
external procedure, which is a single 
block. Compilation of this procedure on a 
system with a storage capacity of 16K pro¬ 
duces an object program that requires 20K. 
The storage requirements for the individu¬ 
al parts of the program are as follows: 


DOS/TOS control program 

- 6K 

Overhead 

- 2K 

Data 

- 2K 

Subroutines including 

- 5K 

logical IOCS 


Object program 

- 5K 


Actually, the program requires only 19K 
under the assumption that IK of data is 
automatic and IK is static. However, 2OK 
is required when the data is allocated. 

In order to make the object program run 
on a system with a storage capacity of 
16K, it is segmented into 8 phases. The 
root, which is located behind the DOS/TOS 
control program, contains the MAIN proce¬ 
dure and the subroutines. Thus, the root 
plus the DOS/TOS control program may 
require 11K plus the overhead and program 
requirement of 2K, i.e., a total of 13K. 
Since the PL/I control program is in the 
root phase, the total overhead for the 
non-root phases is approximately .5K. 

This remaining overhead increases 
slightly because there are now 8 separate 
blocks, each of which with its own over¬ 
head. The allotment of this remaining 
overhead may result in .25K per block. 

Due to these changes, the program logic 
must be slightly changed and extended to 
allow for the overlaying. This brings the 
requirement for the object program to 
about .7K per phase. Since each phase 
requires less than IK and the root plus 
the control program requires 15K, the pro¬ 
gram will now run on a system with a 
storage capacity of 16K. The root will 
fetch the first phase (named PHSE1) and 
activate it. Control is then returned to 
the root, and the second phase (named 
PHSE2) is fetched and activated. This 
process is repeated until the eighth phase 
has been executed. This completes the 
processing of one transaction, and the 
process is then repeated. The names of 
the procedures shown below are A for the 
root and El, B2, B8 for the phases. 

A:PROCEDURE OPTIONS (MAIN); 

DECLARE (data items) EXTERNAL; 

ON ENDFILE (file-name) action; 

BEGIN: CALL OVERLAY ('PHSEl'); 

CALL Bl; 

CALL OVERLAY ('PHSE2'); 

CALL B2; 

CALL OVERLAY (*PHSE8V); 


CALL B8; 

GC TC BEGIN; 

END 

B5:PROCEDURE; 

DECLARE (data items) EXTERNAL; 

. source text 

RETURN; 

END; 

For DCS, the additional time required 
per transaction when using the overlay 
feature is approximately 4 seconds. For 
TOS, the additional time required depends 
on the number and order cf the phases. In 
the above example, the time increase is 
about the same for DCS and TOS. 

P ro cessi ng o f Ov er la ys by the Linkage 
Editor 

All phases of one program are processed by 
the Linkage Editor program in one single 
job step. Therefore, only one // EXEC 
LNKEDT statement must be given for a 
multi-phase program. Each phase requires 
one PHASE statement, which must immediate¬ 
ly precede the input for this phase. The 
ENTRY statement, if used, must be the last 
statement in the input stream to be writ¬ 
ten on SYSLNK. A multi-phase program must 
contain one external procedure with the 
option MAIN. This external procedure must 
appear in the physically first phase, 

i.e., in the root phase. 

If programs that contain overlays are 
to be processed by the Linkage Editor pro¬ 
gram, a PHASE statement cf either cne of 
the following three formats must be used: 

1. PHASE phasename,RCCT 

This format must be used for the rcct 
phase. It must be the first PHASE 
statement in the input stream. 

2. PHASE phasename,* 

This format of the PHASE statement 
causes the subsequent phase to be 
loaded beginning at the next double- 
word boundary. The use of this state¬ 
ment is recommended fcr the second 
phase. 

3. PHASE phasename,symbol 

Symbol is either a previously-defined 
phase name or an entry name appearing 
in a previous phase (except in the 
root phase). This format of the PHASE 
statement causes the next phase to be 
loaded beginning at the address of the 
symbol. 

The syntax rules for the PHASE state¬ 
ment are as follows: 

1. A phase name must be from 5 to 8 
characters long. 
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2. All phase names of a program must be 
identical in their leftmost four 
characters. 


Note; Different programs (tree struc¬ 
tures) must differ in the first four 
characters of their phase names in 
order to avoid incorrect storage 
allocation. 


3. The phase names must be identical to 
the values of the character-string 
expressions (except for blanks on the 
right-hand side) that are used as 
arguments in the OVERLAY statement. 


When link-editing multiphase foreground 
programs, the ACTION statement with the 
operand FI or F2 must be used because, 
otherwise, the PHASE card for the first 
phase could not have the ROOT operand. 

The first three characters of the phase 
names of a multiphase foreground program 
should be FGP to have them retrieved fast¬ 
er from the core-image library. 

r“T-1 


1 1 // 

JOB MYOVLAY 


1 1// 

OPTION LINK 


1 1 

PHASE OVLA Yl ,ROOT 


1 1// 

EXEC PL/I 


1 1 

RT:PROCEDURE OPTIONS (MAIN); 


1 1 

RU:ENTRY 


111 

CALL OVERLAY ( * OVLAY2 *) ; 


1 1 

1 2| 
i i 

CALL OVERLAY ( 1 0VLAY3 ' ); 


1 1 

1 3| 

l i 

CALL E; 


1 1 

1 1 

1 |/* 

END ; 


1*4 

INCLUDE JKLM 


1 5 | 

PHASE 0VLAY2, * 


1 1 

INCLUDE 


1 1 

1 |/* 

deck XYZ 


| 6 | 

PHASE 0VLAY3,, 0VLAY2 


1 + l 

INCLUDE MYPROG 


1 |// 

EXEC PL/I 


1 1 

E:PROCEDURE; 


i 1 

1 1 

1 I/* 

END ; 


1 7| 

ENTRY RU 


1 |// 

EXEC LNKEDT 


1 8| // 

1 1/6 

EXEC 


L_L_ 


_j 


Figure 59. Sample Program to be Processed 
by the Linkage Editor 

Figure 59 shows a sample program to be 
processed by the Linkage Editor. The num¬ 
bers at the left-hand margin are not part 
of the ceding; they serve as reference to 
the explanations only. 


E xp l anatio n 

1 Causes loading of phase 0VLAY2. 

2 Causes loading of phase 0VLAY3. 

3 Activates procedure E in phase 0VLAY3. 
It is assumed that phase OVLAO has 
been loaded previously and has not been 
destroyed, e.g., by reloading phase 
OVLAY2. 

4 The module JKLM that is cataloged in 
the relocatable library is to be used 
in 0VLAY2 and 0VLAY5. Therefore, it is 
included in the ROOT phase by an 
INCLUDE statement. 

5 This statement causes three actions: 

a. It signals that the input stream of 
CVLAY1 is terminated. 

b. The modules that are contained in 
the relocatable library and 
required for CVLAY1 are retrieved 
from the library by the autolink 
feature in order to complete 
0VLAY1. 

c. Phase CVLAY2 is loaded beginning at 
the first double-werd boundary fol¬ 
lowing the last module of 0VLAY1. 

6 This statement causes three actions: 

a. It signals that the input stream of 
0VIAY2 is terminated. 

b. The library modules that are 
required for phase 0VLAY2 and not 
contained in the ROOT phase 
(CVLAY1) are retrieved from the 
library by the autclink feature. 

c. The starting point of OVLAY3 is 
determined to be the same as that 
for CVLAY2. 

7 This statement causes four actions: 

a. It signals that the input stream 
for the program is terminated. 

b. The library modules that are 
required for phase 0VLAY3 and not 
contained in the RCOT phase 
(0VLAY1) are retrieved from the 
library by the autolink feature. 

c. RU is determined to be the starting 
point for the execution of the 
program. 

d. The starting point of the dynamic 
storage area is determined to begin 
on the first double-word boundary 
following 0VLAY2 or OVLA¥3,, whi¬ 
chever is longer. 
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8 Fetches 0VLAY1 and transfers control to 
entry point RU. Note that only the 
ROOT phase is loaded by // EXEC. 

+ See PL/I Pr oce d ur es Co n ta in ed i n the 
Relocat ab le Libra ry below. 

The structure of the resolved overlay 
scheme of the above example is shown in 
Figure 60. 



Figure 60. structure of the Resolved 
overlay Scheme 


PL/I-Procedures Contained in the 
Relocata bl e Li brary 

Precompiled PL/I procedures may be inco¬ 
rporated in the relocatable library by 
using the DCS/TCS MAIN! service program. 

A module is retrieved frcir the library and 
incorporated in the object program by the 
autolink feature when the name cf the 
module is specified for the first time 
either in a FI/I function reference or in 
a CALL s t at em ent. 


No module is retrieved from the library 
if only secondary entry points are 
referred to in the calling procedure(s). 

In this case, a statement of the format 


INCLUDE module-name 


is required to include the module in the 
object program. On the other hand, inco¬ 
rporation by the autolink feature can be 
suppressed for a specific module by refer¬ 
ring only to secondary entries cf that 
module. To obtain the same result as by 
calling the primary entry point* the pro¬ 
grammer may insert a statement of the 
format 


ENTRY secondary-entry-name 

immediately behind the PROCEDURE statement 
of the external procedure. 

Notes Although this description covers 
most of the applications of the overlay 
scheme,, the reader should study the sec¬ 
tion covering the Linkage Editor program 
in the SRI publications that describe the 
DOS/TOS system control and service 
programs. 
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PROGRAM LISTINGS 


SOURCE_PR03RAM_IISTING 

All source program cards are listed if the 
LIST option is in effect. Each card is 
printed as one line. The source state¬ 
ments are numbered sequentially starting 
at 1. The statement number is printed in 
print positions 1 through 6 of the line 
wnere the statement begins (right- 
aligned). In case a line contains more 
than one statement, only the number of the 
first statement is printed. However, 
since the remaining statements are coun¬ 
ted, the next line again gives the correct 
statement number. 

Note: If comments or character strings 

are not correctly opened or closed in the 
source text, unpredictable diagnostic mes¬ 
sages may be produced. Also, the source 
statement numbering will be erratic. 

If the source statement contains any 
error(s), tne statement number is used in 
the corresponding diagnostic message to 
clearly identify the statement in error. 
The diagnostic messages are listed in 
Appendix F. 

Column 1 of PL/I source program cards 
must always be blank. If column 1 of a 
source card contains any cnaracter, print 
positions 7 through 20 of the correspond¬ 
ing line in the source program listing — 
i.e., the gap between the statement number 
column and the source statement column 
plus column 1 of the source card -- are 
filled with asterisks to indicate this 
error. Columns 73 through 80 are ignored 
and may contain any information. 

S^MBOL_TABLE_LISTING 

If the SYM option is specified, all sym¬ 
bols used in PL/I source programs are 
listed in the symbol table. The format of 
the symbol table is shown in Figure 61. 

The symbol table is listed even if 
NOSYM was specified in case a declaration 
contains an error or an external name is 
too long. 

The programmer is advised to examine 
the symbol table listing after the first 
compilation of a procedure to detect 
erroneously declared identifiers and iden¬ 
tifiers that may have been incorporated by 
default rules as the result of 
mispunching. 

The attributes ALIGNED or (JNALIGNED, if 
specified for a major structure, are 
printed together with the elements of the 


structure, unless an opposite attribute 
has been explicitly declared for a parti¬ 
cular element. 


r- T - n 

| Print | | 

jPositions|Contain | 

j.—-1-j 

| 1-31 |user-defined name | 

-1-^ 

| 33-36 |internal representation | 

j. --j--j 

| 38-39 |block number | 

j.-j.- ] 

1 41 |block level number | 

j.-1--f 

j 43-49 (one of the attributes ARRAY, | 

I (STRUCT., ENTRY,, or BUILTIN* j 

fc---j--H 

| 51-53 |logical structure level* | 

j.-4-.J 

1 55-61 | one of the attributes ARITHM.,, | 

| (STRING, LAEEL, POINTER, FILE, | 

| |or PICTURE* ( 

t-4- J l 

| 63-69 (one of the attributes DECIMAL, ( 

j (BINARY, ALIGNED, UNAL., CONST.,j 

j (or VARIAB.* ( 

i—-4- 

( 71-75 |one of the attributes FIXED, | 

j (FLOAT, EIT, CHAR., or STERL* | 

j.-1- j 

( 77-81 (the precision or length* | 

k--4-1 

| 83-88 |one of the attributes STATIC, | 

j (AUTOM., BASED, PARAM., or | 

| |DEFIN.* I 

j.- 1 - ■} 

| 90-92 |one of the attributes INT or | 

I |EXT | 

j.- x --- \ 

j * if applicable ( 

L_J 

Figure 61. Format of the Symbol Table 
Listing 


Any error detected during compilation in 
the declaration of the symbols is identi¬ 
fied in the symbol table. In this case, 
only the source program symbol, one of the 
messages listed in Figure 62, three 
asterisks, and the code pertaining to the 
message appear in the respective line of 
the listing. 


Message 12 appears with the f ir st com¬ 
parand only. Comparison starts with the 
innermost block and proceeds either on the 
same nesting level according to the block 
sequence of the program,, cr to the blcck 
with the next higher nesting level. 
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Example: 


OUT: PROCEDURE; 

DECLARE E BINARY EXTERNAL; 

IN: PROCEDURE; 

DECLARE E DECIMAL EXTERNAL; 
END IN; 

END OUT; 


containing the external nair,es in alphabetic 
order as well as the internal names and the 
statement numbers of those statements in 
which the names appear. References tc 
identifiers in DECLARE statements or to 
incorrectly declared identifiers are not 
printed. 


The message appears with the E in procedure 
IN. 


r- t 

Code 


01 


02 


03 


04 


05 


06 


07 


08 


09 


0A 


0B 


It-' 


oc 


0D 


0E 


OF 


-4 


10 


11 


Message Text 


SYNTACTICAL DECLARE ERROR. 


CONFLICTING ATTRIBUTES. 


PRECISION IS MISSING CR WRONG. 


BASE VARIABLE ITSELF IS DEFINED OR 
BASED. 


BASE OR POINTER INCORRECT. 


ATTRIBUTES OF SECONDARY ENTRY CON¬ 
FLICT WITH THOSE OF PRIMARY ENTRY 


MULTI-DECLARED IDENTIFIER. 


ENTRY RETURNS VALUE WITH CONFLICTING 
ATTRIBUTES. 


INVALID STRUCTURE. (Any invalid 
element in a structure may invalid¬ 
ate the entire structure). 


ARRAY TOO LONG. 


STRUCTURE TOO LONG. 


POINTER IN BASED STRUCTURE. 


TOO MANY ARRAYS. 


INVALID PICTURE. 


STRUCTURE LEVEL TOO DEEP. 


NAME EXCEEDS 31 CHARACTERS IN 
LENGTH. 


EXTERNAL NAME EXCEEDS 8 CHARACTERS 
IN LENGTH. 


| 12 |MULTIPLE DECLARATION CF EXTERNAL | 

column 

1: 

SYMBOL 

| |NAME INCONSISTENT. | 

column 

2: 

TYPE 

L X _ __ J 

column 

3: 

ESID 

Figure 62. Error Codes Used in the Symbol 




Table Listing 

column 

4 : 

ADDR 

CROSS-REFERENCE LISTING 

column 

5 : 

LENGTH 

If XREF is specified either in the OPTION 

column 

6: 

ESID 


statement or in the PL/I PROCESS statement 
a cross-reference listing will be provided 


OFFSET TAB LE LISTING 

The offset table listing is produced if the 
SYM option is specified in the OPTION sta¬ 
tement. The information is printed in four 
columns in hexadecimal notation. 

Intern al N ame. A variable or constant is 
listed in the offset table if (1) it is de¬ 
clared in the source text and (2) it 
appears either in the automatic or static 
storage area, and (3) has a fixed offset 
relative to the beginning of the respective 
storage area. 

Offset. This column gives the offset of 
the data item relative to the beginning of 
the automatic or static storage area for 
the corresponding block. 

Ty pe. This column indicates whether the 
data item is contained in static cr in 
automatic storage. 

Mod ule Off set. This column gives the off¬ 
set of the data item relative to the begin¬ 
ning of the module in which it appears. 
(Since the addresses in automatic storage 
are dynamically assigned, no offset rela¬ 
tive to the beginning of the module can be 
given for automatic data.) The absolute 
address of the data item contained in stat¬ 
ic storage can be determined by adding the 
load address of the module (to be found in 
the Linkage Editor storage map) tc the 
value given here. 


EXTERNAL_SYMBOL_TABLE_LISTING 

The external symbol table is produced if 
the SYM option is specified in the OPTION 
statement. xt contains the following 
information: 


the external symbol 
either SD, LD, or ER 
ESID number of control 
section that is referred 
to (for SD and ER) 
begin address (for SE 
and LD) 

end address (for SD 
only) 

ESID number of control 
section that is referred 
to (for LD) 
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block_taele_listing 

The block table listing is produced if the 
SYM option is specified in the OPTION sta¬ 
tement. The block table gives the nuirber 
of the program block and the size of the 
corresponding DSA in hexadecimal notation. 

OBJECT_OODE_LISTING 

The object code generated for a PL/I source 
program is listed following the offset 
table. The following should be noted: 

1. All addresses and operands are printed 
in hexadecimal notation. 

2. Length specifications in SS instruc¬ 
tions are printed modulo 256 if one 
length is specified and modulo 16 if 
two lengths are specified. 

3. Operands of the form X'nnn'(b) repre¬ 
sent generated variables or constants, 
nnn is the displacement and b is the 
base register. 

4. Operands of the form N' nnn' , where nnn 
is greater than or equal to 100, repre¬ 
sent internal names of declared items. 
(These can also be found in the symbol 
table.) 

5. Operands of the form N'nnn', where nnn 
is less than 100, represent internal 
names of PL/I library subroutines. 

6. Labels of the form I'nnn' represent 
internal names of declared or generated 
labels. (Only declared labels can be 
found in the symbol table.) 

7. Operands of the form N'nnn' that appear 
in the instructions BC, BAL, or BCT 
represent internal names of either de¬ 
clared or generated labels. 

8. A 'constant' of the form X'' has the 
same function as the assembler instruc¬ 
tion EQU * 

9. An instruction of the form 
L'nnn' DC A(N'nnn') 

does not represent an address constant 
of itself. L'nnn', in this case, is 
the label of tne constant, whereas A( 
N'nnn') refers to an entry point of 
that internal name in the program. For 
example, in the instruction 

L* 0104' DC A(N'0104*) 

L'0104* is the label of the constant 
defined by the DC. A(N'0104') refers 
to an entry point in the program that 
has the internal name. 


10. If a statement is preceded by more than 
one label, all labels are equated to 
the one directly preceding the state¬ 
ment. For the statement: 

A: B: C: X = Y; 

the following code would be generated: 

L’ ' EQU * (for A) 

I' ’ EQU * (for B) 

L• • MVC .... 

11. The number of the source statement for 
which the object code is generated is 
printed at the end of the specific part 
of the object text. The statement 
number may appear more than once if the 
respective source statement was broken 
down into logical parts during 
compilation. 


STA TEME NT OFFSET L ISTING 

If IISTC is specified in the PROCESS card 
the statement numbers and the relative 
location of the end of each statement 
within the object module is printed. LISTO 
overrides LISTX, i.e. , if LISTO and LISTX 
are specified, the LISTX option is ignored 
because the object code listing and the 
statement offset listing cannot be printed 
together. 


COMPI LE-T IME DIAGNOSTIC MESSAGES 

Errors caused by non-observance of language 
rules and/or restrictions in the source 
text are detected by the compiler. A diag¬ 
nostic message is printed for each detected 
error (after the source listing). Thus, 
more than one diagnostic message may be 
printed for one statement. The format of 
the diagnostic messages is,as shown in 
Figure 63. 

The error messages are printed on the 
unit assigned to SYSLST if ERRS was speci¬ 
fied in the Job Control OPTION statement or 
in the PL/I PROCESS card. The error list 
is followed by a message resulting frcm all 
detected errors. This message gives the 
action taken by the compiler. 

If errors of the severity T are 
detected,, the message is: 

5E01I JCBSTEF PL/I TERMINATED. LINK 

OPTION RESET. 

If no errors of the severity T„ but 
errors of the severity S are detected, the 
message is : 

5E02I LINK OPTION RESET. 
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r- t- 

|COLUMN|CONTAINS 


5A, 5C, 5E, or 5G, depending on 
where the error is detected. 


three decimal digits (only two for 
messages that are also printed on 
the console) giving the number of 
the error message. 


the character I (system standard 
indicating that the message is of 
informational type and no operator 
action is required). 


the number of the statement in 
which the error was detected (only 
for messages starting with 5C and 
5E) . 


the severity code (one of the 
characters W, E, S, or T) . 

W = Wa rni ng 

This code indicates that the com¬ 
piler suspects an error although 
the program is written in legal 
PL/I language. The compiler takes 
no further action. 

E - Er ro r 

This code indicates that the pro¬ 
gram is not legal. However, the 
compiler has taken the correspond¬ 
ing corrective action. Execution 
will be successful if the correc¬ 
tive action was adequate. 

S = Seve re err or 

This code indicates that the pro¬ 
gram contains errors which the 
compiler is unable to correct, but 
which do not prevent the compila¬ 
tion from being continued. Execu¬ 
tion of the produced object pro¬ 
gram will not be successful. 

T = Term in a tio n 

This code indicates errors causing 
the termination of the compila¬ 
tion. Compilation is terminated 
after the phase handling the error 
listings has been reached and the 
messages have been printed. 


a comment referring to the 
detected error. (See Appendix F.) 


Figure 63. Format of Diagnostic Messages 


The individual diagnostic error messages 
are listed in Appendix F. 


OBJECT-TIME DIAGNOSTIC MESS AGES 

Errors that occur during execution of PL/I 
programs cause the printing of an object¬ 
time diagnostic message. The format of 
these messages is as follows: 

5L00I ccqqqqqq aaaaaa ERROR STMT 

5L00I is a prefix to identify the mes¬ 
sage as a PL/I object-time 
message, 

cc are two hexadecimal digits iden¬ 

tifying the message,, (see the 
message code list below), 

qqqqqq are six hexadecimal digits qua¬ 
lifying the message code with 
the address of a file* if appl¬ 
icable. Otherwise six zercs. 

aaaaaa are six hexadecimal digits spe¬ 
cifying the address where the 
error was detected. If the 
error was detected in a library 
routine, aaaaaa is the address 
of the instruction that follows 
the call of the routine in the 
PL/I object pregram. 

STMT If STMT was specified in the 

PROCESS card, the number of the 
source statement that caused the 
error is printed in the form 
STATEMENT NUMBER nnnn. In some 
instances it is impossible to 
determine the statement that 
caused the error; nnnn is then 
set to 0000. 

For errors not raising an ON-condition 
(other than ERROR), a message is printed 
for the specific error and the ERROR- 
ccndition is raised. This applies to all 
errors with a message code higher than 10. 

If SYSLST is not yet opened (e,g., 
because of insufficient storage for DSA), 
some of the messages may be printed on the 
printer-keyboard only. 


Since in the case of severe errors no 
linkage editing is possible,, the // EXEC 
LNKEDT statement, if any, is flagged as 
invalid by the Job Control message ISInD 
STATEMENT OUT OF SEQUENCE. 

If only errors of the severity W or E 
are detected, the message'is: 


LIST OF MESSAGE CCDES 

1• PI /I C N- Con dit ion C om men ts 

These object-time diagnostic messages 
are issued only if an enabled PL/I ON- 
condition is raised and no ON-unit is 
currently being executed for this 
condition. 


5E03I POSSIBLE ERRORS IN SOURCE 01 OVERFLOW 

PROGRAM. 02 UNDERFLOW 
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03 

ZERODIVIDE 

4a. Mathematical and Arithmetical Subrou- 

04 

FIXEDOVERFLOW 

tines (Short Arguments) 

05 

SIZE 



06 

CONVERSION 



09 

ERROR 

30 

X LT 0 IN SQRl(X) 

0A 

ENDFILE 



OC 

TRANSMIT 



0D 

KEY 

31 

ABS(X) GE (2 **18)*K IN SIN(X) 

0E 

RECORD 


OR COS(X) (K=PI) OR SIND(X) OR 




CCSD(X) <K=180) 

Only the last four conditions 

32 

ABS(X) GE (2**18)*K IN TAN(X) 

use 

the file-name qualification. 


(K=PI) OR TAND(X) (K=180) 


With indexed-sequential files the END- 
FILE condition will also be raised if a 
key higher than the last one on the 
file is requested. If the ENDFILE con¬ 
dition is not enabled for the file, the 
message 80 - NO RECORD FOUND - will be 
issued. 

2. Hardwa re Interrupts 

Severe programming errors might lead to 
program-check hardware interrupts dur¬ 
ing the execution of a PL/I program. 
These possible interrupts are identi¬ 
fied by the following codes: 

11 Operation 

12 Privileged operation 

13 Execute 

14 Protection 

15 Addressing 

16 Specification 

17 Data 

IE Significance 

Note_: For details refer to the SRL 

publication IBM Syst ero /3 60 x _Pr incipl es 
of_Operation, Form A22-68 21. 

3. Ho us ekeepi ng Errors 

21 STORAGE OVERFLOW 

There is not sufficient storage 
available for dynamic storage 
allocation. 

22 INVALID LABEL 

The label variable in a GOTO state¬ 
ment does not contain a valid 
label. 

23 SECOND CALL OF RAIN 

A procedure with the option MAIN is 
called by a PL/I program. 

24 PARAMETER NOT ON DOUBLE-WORD 
EOUNDARY 

Procedure expecting double¬ 
precision floating-point variable 
as parameter has been passed 
single-precision value. 

25 INVALID SIGN CHARACTER 
Incorrect character for sign posi¬ 
tion of PICTURE data containing T, 
I, or R in specification. 


33 X TCC NEAR SINGULARITY IN 
TAN(X) or TAND(X) 

34 Y=X=0 IN ATAN(Y,X) 

35 X GR 174.6 IN SINH(X) OR 
CCSH(X) 

36 X GR 174.6 IN EXF(X) 

37 X GR 1 IN ATANH (X) 

38 X IE 0 IN LOG (X) OR LOG2(X) OR 
LOGIO(X) OR X LE 0 AND Y NOT FIXED 
POINT (P,0) IN EXPRESSION X**Y 


39 

o 

il 

X 

Y LE 0 

IN X**Y 

3A 

X 

II 

o 

N=0 IN 

X**N 


4b. Ma thematical and Ar ithmetica l Subrou¬ 
tine s (L ong Arguments) 

40 X IT 0 IN SCRT(X) 

41 ABS(X) GE (2**50)*K IN SIN(X) OR 
COS(X) (K=PI) OR SIND (X) OR 
CCSD(X) (K=18 0) 

42 ABS(X) GE (2**50)*K IN TAN(X) 

(K=PI) OR TAND(X) (K=180) 

43 X TCC NEAR SINGULARITY IN 
TAN(X) OR TAND(X) 

44 Y=X=0 IN ATAN< Y,X) 

45 X GR 174.6 IN SINH(X) OR COSH(X) 

46 X GR 174.6 IN EXP(X) 

47 X GR 1 IN ATANH(X) 

48 X LE 0 IN LOG(X) OR LOG2(X) 

CR LCG10(X) CR X LE 0 AND Y NOT 
FIXED POINT <P,0) IN EXPRESSION 



X**Y 




49 

o 

II 

X 

Y 

LE 0 

IN X**Y 

4A 

o 

II 

X 

N= 

0 IN 

X**N 


4 c • Oth er Built- in Fu ncti ons 

50 Y=0 IN MCD(X,Y) 

Binary fixed arguments 
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51 Y=0 IN MOD(X„Y) 

Decimal fixed arguments 


52 Y=0 OR 

ABS (X/Y) ST 7.2*10**75 IN MOD(X,Y) 
Short floating-point arguments 


53 Y=0 OR 

ABS(X/Y) GT 7.2*10**75 IN MOD(X f Y) 
Long floating-point arguments 

54 MOD(X,Y) GE ABS(Y) 

Short floating-point arguments 

55 MOD(X,Y) GE ABS(Y) 

Long floating-point arguments 

MOD for floating-point arguments 
will be calculated as 

a=X/Y; b=Y*a; M0D(X,Y)=X-b 

If the exponent of X is so high 
that X+Y has the same value as X, 
then MOD(X,Y)=0; message 54 or 55 
will be generated in such a case. 

Inp ut/Qutp ut E rr ors 

61 FORMAT ERROR 

Illegal combination of data list 
item and format list item. 

62 END OF STRING 

Attempt to read or write beyond the 
specified string in a GET EDIT or 
PUT EDIT statement with the STRING 
option. 

63 ILLEGAL USE OF CONTROL FORMAT OR 
OPTION 

An invalid PAGE,, SKIP, LINE, or 
COLUMN format is specified for a 
file. 

64 ILLEGAL USE OF STREAM FILE 
Attempt to execute a disallowed GET 
EDIT or PUT EDIT statement for a 
STREAM file. 

65 ILLEGAL USE OF CONSECUTIVE 
EUFFERED FILE 

Attempt to execute a disallowed 
READ, WRITE, REWRITE, or LOCATE 
statement for a CONSECUTIVE BUF¬ 
FERED file. 

66 ILLEGAL USE OF CONSECUTIVE 
UNBUFFERED FILE 

Attempt to execute a disallowed 
READ, WRITE, or REWRITE statement 
for a CONSECUTIVE UNBUFFERED file. 

67 ILLEGAL USE OF REGIONAL FILE 
Attempt to execute a disallowed 
READ, WRITE, or REWRITE statement 
for a REGIONAL file. 


69 PAGE SIZE OPTION FOR NON-PRINT FILE 

6A ILLEGAL USE OF INDEXED SEQUENTIAL 
FILE 

Attempt to execute an invalid READ,, 
WRITE, or REWRITE statement for an 
INDEXED SEQUENTIAL file. 

6B ILLEGAL USE OF INDEXED DIRECT FILE 
Attempt to execute an invalid READ,, 
WRITE, or REWRITE statement fcr an 
INDEXED DIRECT file. 

6C INPUT DATA ELEMENT TOO LONG 
Attempt to read an element of 
excessive length in a GET LIST 
statement. 

6D TCC MANY CONCURRENT I/O ERRORS FOR 
STACK SIZE 

Indicates that mere than three 
files have WLR and/or TRANSMIT 
errors being handled at the same 
time. 

6E FILE IN ERROR NOT IN STACK 

Indicates that a file with WLR or 
TRANSMIT error flagged in the DTF 
appendage is not in the error file 
stack. 

(N.B. This message can also occur 
if the LBLTYP card has been 
omitted, thereby causing label data 
to overlay and set the appropriate 
bit in the DTF appendage). 

6F ILLEGAL USE OF STREAM FILE 

Attempt to execute a disallowed GET 
LIST or PUT LIST statement for a 
STREAM file. 

70 ERROR DURING POSITIONING OF INDEXED 
SEQUENTIAL INPUT FILE 

An error has occurred during the 
positioning to the record key spe¬ 
cified in the KEY option of a READ 
statement. 

71 ERROR DURING INITIALIZATION OF 
INDEXED SEQUENTIAL OUTPUT FILE 
The cylinder index area is not 
large enough to accommodate all 
entries required to index each 
cylinder specified for the prime 
data area. 

72 ERROR DURING INITIALIZATION OF 
INDEXED SEQUENTIAL OUTPUT FILE 
The master index area is not large 
enough to accommodate all entries 
required to index each track cf the 
cylinder index. 

7B END CF STRING 

Attempt to read cr write beyond the 
specified string in a GET LIST or 
PUT LIST statement with the STRING 
option. 




If the ERROR condition is raised as 
a result of System action for the 
KEY condition, one of the following 
messages may be printed to give a 
more specific description of the 
error that caused the KEY condition 
to be raised. 

80 NO RECORD FOUND 

The record to be retrieved by a 
READ KEY from an INDEXED file has 
not been found in the data file. 

81 OVERFLOW AREA FULL 

There is no more space available in 
the overflow area (s) for the record 
to be added to an INDEXED DIRECT 
file by a WRITE KEYFROM statement. 

82 PRIME DATA AREA FULL 

The prime data area has been filled 
while creating or extending an 
INDEXED SEQUENTIAL file by a WRITE 
KEYFROM statement. 

83 DUPLICATE RECORD 

The record being added by a WRITE 


KEYFRCM statement to an INDEXED 
SEQUENTIAL or DIRECT file has a 
duplicate record key of another 
record in the file. 

84 SEQUENCE CHECK 

The record being written by a WRITE 
KEYFRCM statement to an INDEXED 
SEQUENTIAL file is not in the 
sequential order required. 

87 FORMAT ERROR IN INPUT 

a) Delimiter is neither blank nor 
comma 

b) Character E is missing in 
external format of a bit string 

c) External format of data item is 
incompatible with internal 
declaration, e.g. 

External^ Internal; 

character string-*—►bit string 
string data + », numeric, 

E,F-format 
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^PPENDIX_?U_CONVERSION_SUBRCUTINES 


r- t 

No. and 
intern. 
name 


Function 


Reason for Inclusion 
in Object Program 


Size(in Bytes) 


IJKVECM 


Converts input data 

from F or E notation to an 

internal intermediate form 


F or E format has appeared 
in an input statement 


404 


IJKVCEM 


Converts data from an internal 
intermediate form to F or E 
format in preparation for output 


F or E format has appeared 
in an output statement 


1024 


IJKVPCM 


Converts data in storage in 
coded fixed decimal form to an 
internal intermediate form 


Coded fixed decimal expres¬ 
sion appears in an output list 
or 

Coded fixed decimal data 
requires conversion to float¬ 
ing scale or binary base 


68 


H 


IJKVCPM 


Converts data from an internal 
intermediate form to coded 
fixed decimal form 


Coded fixed decimal variable 
appears in an input list | 

or 

Whenever a conversion to | 

coded fixed decimal is required 


214 


IJKVFCM 

IJKVNPM 


Converts data stored in 
numeric float form to an inter¬ 
nal intermediate form 


A numeric float variable | 

appears in an arithmetic 
expression or in an output list| 


4 92 


IJKVCFM 

IJKVPNM 


Converts data in an internal 
intermediate form to internal 
numeric float 


Numeric float variable 
appears in an input list 
or 

appears on the left side of an 
assignment symbol 


680 


IJKVBCM 


Converts data in storage in 
fixed binary form to an inter¬ 
nal intermediate form 


Integer binary fixed expres¬ 
sion appears in an output list 


60 


8 

IJKVCBM 


Converts data in an internal 
intermediate form to fixed 
binary form 


Binary fixed variable appears 
in an input list 


238 


IJKVTCM 


Converts data from coded float¬ 
ing point form (short,or long 
word) to an internal intermedi¬ 
ate form 


Coded float expression or non- | 
integer binary expression 1 | 

appears in an output list | 

or | 

Coded float or non-integer | 

fixed binary expression is | 

assigned to a numeric decimal | 
variable or a coded fixed | 

decimal variable I 


320 2 


10 

IJKVCTM 


Converts data from an internal 
intermediate form to coded 
floating form (short or long) 


Coded float variable appears 
in an input list 
or 

Conversion to coded float is 
required from either numeric 
data or coded fixed decimal 


39 2 2 
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|No. and 
jinterr, 

I name 


11 * 

IJKVNPM 


IJKVPNM 


13 

IJKVRPM 


IJKVPRM 


I 15 

I 

|IJKVGIM 


I 16 

I 

I1JKVI3M 


I 17 
I IJKVBTM 


18 

IJKVTEM 


Function 


Converts data from numeric 
fixed form to coded fixed 
decimal form 3 


Converts data from coded fixed 
decimal form to numeric fixed 
decimal form 3 


Converts from numeric fixed 
sterling to coded fixed decimal 


Converts from coded fixed 
decimal to numeric fixed 
sterling 


Converts character string to 
bit string 


Converts bit string to character 
string 


Converts fixed binary data to 
coded float 


Converts coded float data to 
fixed binary 


Reason for Inclusion 
in Object Program 


Numeric fixed decimal number is 
used in an arithmetic 
expression or in an output list 


Numeric fixed decimal number 
appears on the left of an 
assignment symbol or in an 
input list 


Numeric sterling field is used 
in an arithmetic expression cr 
in an output list 


Numeric sterling number 
|appears on the left of an 
assignment symbol or in an 
|.input list 


Conversion to bit string from 
character string form is 
required - 


Conversion to character 
string from bit string is 
required or a bit-string 
expression appears in an 
output list 


Conversion from binary 
fixed to coded float is 
required 


Conversion from coded 
float to fixed binary is 
required 


Size(in Bytes) 


^The only way for a non-integer fixed binary number to appear is if the result of a 
| division of one fixed binary integer by another results in a non-integral value cr by 
| use of any of the built-in functions PRECISION, BINARY, or FIXED,. 

I 

| 2 Also requires a table of 128 bytes. Subroutines 9 and 10 require this table. If both 
| subroutines appear,, the table is in storage only once. 

I 

| 3 Any picture data represented by [ 9 . .. 3 tV 3 C 9 ... 3 CT ] is converted to and from coded 
| fixed decimal by a single in-line instruction and requires no subroutines. 

I 

|*Subroutine 11 is a subset of subroutine 5. If 5 is present, 11 is not. 

I 

| 5 Subroutine 12 is a subset of subroutine 6. If 6 is present, 12 is not. 
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APPENDIX_B i __POSSIBLE_COMBINATIONS_OF_D^T^_CONVERSICNS 


N \ TO 

FROM 

FORMAT ITEMS 

CODED FIXED DECIMAL j 

NUMERIC FIXED DECIMAL j 

CODED FLOAT j 

NUMERIC FLOAT | 

NUMERIC STERLING j 

FIXED BINARY | 

CHARACTER STRING j 

BIT STRING | 

LABEL 

POINTER j 




co 

FORMAT ITEMS 

F 

NP 

NP 

NP 

NP 

1,4 

1,4, 

12 

1,10 

1,6 

1,4, 

14 

1,8 

NP 

NP 

NP 

NP 

E 

NP 

NP 

NP 

NP 

1,4 

1/4, 

12 

1,10 

1,6 

1,4, 

14 

1,8 

NP 

NP 

NP 

NP 

A 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

X 

NP 

NP 

NP 

B 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

15 

NP 

NP 

CODED FIXED DECIMAL 

2,3 

2,3 

NP 

NP 

IL 

12 

3,10 

3,6 

14 

IL 

NP 

IL 

NP 

NP 

NUMERIC FIXED DECIMAL 

ES 

2,3, 

11 

NP 

NP 

11 

lj% 


3,6, 

11 


11 

IL 

11 

NP 

NP 

CODED FLOAT 

2,9 

2,9 

NP 

NP 

m 

1 

IL 

6,9 

m 

18 

NP 

18 

NP 

NP 

NUMERIC FLOAT 

2,5 

2,5 

NP 

NP 

m 

n 

5,10 

5,6 

i 

5,8 

IL 

5,8 

NP 

NP 

NUMERIC STERLING 

El 

H 

NP 

NP 

13 

EH 


ES 


13 

IL 

13 

NP 

NP 

FIXED BINARY 

m 

EB 

NP 

NP 

IL 

12 

17 

m 

14 

IL 

NP 

IL 

NP 

NP 

CHARACTER STRING 

NP 

NP 

X 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

IL 

15 

NP 

NP 

BIT STRING 

NP 

NP 

NP 

16 

IL 

12 

IL 

09 

14 

IL 

16 

IL 

NP 

NP 

LABEL 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

IL 

NP 

POINTER 

NP 

BB 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

NP 

IL 


Legend: NP - Not permitted. 

IL - Done directly in-line; no subroutine required. 

X - Contained as part of edit-directed I/O package to be discussed in I/O chapter. 
The numbers indicate the applicable conversion subroutines listed in Appendix A. 
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AP PENDIX C. _BUILT-IN FUNCTIONS, PSEUD O V ARIABLES, AND OTHER IMPLIED SUBRO UTINE CALL S 


r—T" 


No|Name 

1 

i 

|Argument(s) 

1 

_ 1 ... _ _ 

|Internal 
|Name(s) 
x 

1 

1 

X 

in 

Bytes 

jRestrictions and Additional 
|Information 

1— 

1 

1 

19|REPEAT 

1 

T 

|bit string 

1 

i 

T T 

|IJKRBKA j 
| IJKREKEI 

X X 

292 

r -— — 

1 

|Result must not exceed max- 

i . 

|character string 

. L .. . ..- 

|' IJKRGKM 

.. .i.. 

T 

1 

„x_ 

84 

| wl 1 liy 1L, X 

1 

1 . . 

| 

20| 

— 1 INDEX 

21 | 

1 . 

T 

Jbit string 

i .. . 

| IJKREIM 

_ L 

T 

1 

-X- 

292 

T --- ^ ^ 

1 

1 

1 

|character string 

L -... 

T 

|IJKRGIM 

__ x _ _ 

T 

1 

-X- 

108 

1 

1 

1 . .. ._ ._ . 

d 

22|BOOL 

l 

1 

| IJKREEM 

T 

1 

424 

T *-- 

1 


Siz e 


f—f 


23 

f- 

24 


SUB STR 


character string 
bit string 
bit string 


in-1ine 
IJKVIIM 
in-1ine 


180 


UNSPEC 


f—f 


Argument must net exceed 
8 by t es 


lr—+ 


DATE 

STRING 


IJKSDTM 

in-line 


58 




28 


ROUND 


lr—4 

29 

lr — 

30 


fixed binary 
fixed decimal 


IJKRUBM 

in-line 


148 


h 


float 

all fixed binary 


in-line 


lr — 

31 

lr — 

32 


MAX/MIN 


lr—+ 
33 


IJKRMEX 

IJKRMBN 


27 8 


all fixed decimal 


IJKRMPX 

IJKRMPN 


386 


all short float 


IJKRMSX 

IJKRMSN 


132 


all long float 


IJKRMLX 

IJKRMLN 


17 2 


Argument with differing data 
attributes causes some of the 
data to be converted to one of 
the four permissible types. 

The choice depends on the 
element of the highest 
stringency level. 


SI3N 


t—h 


in-line 

IJKRWBM 

IJKRWPM 

IJKRWSM 


34 


TRUNC 


f—f 

35 

lr—+- 

361 CEIL 


fixed binary 

l- 

fixed decimal 


short float 
long float 
Contained in TRUNC 


IJKRWLM 

X-j.- 

Entry points 


356 

580 

236 

244 

are 


In-line code for TRUNC of 
fixed decimal data. IJKRWPM is 
used only for FLOOR and CEIL. 


IJKRT. . 


FLOOR 


Contained in TRUNC. Entry points are IJKRV.. 
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Argument(s) 


Internal 
Name (s) 


in |Restrictions and Additional 
Bytes 1 Information 
- f - 


fixed binary 


IJKRSBM 


fixed decimal 


IJKRSPM 


short float 


IJKRSSM 


long float 


IJKRSLM 


PRECIS ION 


in-line 


in-line 


in-1ine 


FIXED 


FLOAT 


BINARY 


DECIMAL 


|Attributes of arguments must 
|permit conversion specified by 
jbuilt-in function name. No 
(subroutine is called if 
j argument is already in re¬ 
quested form. Appropriate 
(subroutines 1-18 are used. 

|Choice depends on attributes 
|of argument and built-in 
(function name. (See 
|Appendix A. 

■4 - 


in-line 


in-line 


in-line 


in-1ine 


in-line 


expr.l fixed binary 
expr.2 integer 
constant 


IJKREBM 


|(Result | < 2 3i -l 


(IHEXIE) 


expr.l fixed deci¬ 
mal, expr.2 integer 
constant 


IJKREPM 


||Result| < 10 15 -1 

I 

((IHEXID) 


expr.l**expr 


expr.l short float, 
expr.2 fixed binary 
with scale factor 0 


IJKRESM 


(|Result| < 7.2xl0 75 

I 

| (IHEXIS) 


expr.l long float, 
expr.2 fixed binary 
with scale factor 0 


IJKRELM 


( |Result| < 7.2xl0 75 

I 

|(IHEXIL) 


expr.l short float 


IJKRXSA 


152 |Expr.l > 0; expr.2 not integer 
(60,62)*|constant or fixed binary; 
||result| < 7.2x10 75 
I (IHEXXS) 


expr.l long float 


IJKRXLM 


168 (Expr.l > 0; expr.2 not integer 
(61,63)*|constant or fixed binary; 
||result| < 7.2xl0 75 
|(IHEXXL) 

































No I Name 


Argument(s) 


Siz e 
in 

Bytes 


Internal 
Name (s) 


Restrictions and Additional 
Information 


short float 


long float 


IJKQQSM 


Argument = 0 or 2.4xl0 “ 78 < 
argument < 7.2xl0 75 
(IHESQS) 


IJKQQLM 


Argument = 0 or 2.4x10 “ 78 < 
argument < 7.2xl0 75 
(IHESSQL) 


short float 

|IJKQASM j 

1 1 

4- 4 

232 

(Argument 
|(IHEEXS) 

j .. . 

< 

174.6 

long float 

1 1 

|IJKQALM j 

1 1 

4 . J_ 

456 

r 

(Argument 
|(IHEEXL) 
4- 

< 

174.6 

short float 

T T 

|IJKQLSA I 
| IJKQLSE j 
| IJKQLSC j 

4 . J. 

272 

T 

|Argument 
|(IHELNS) 

1 

i 

< 

7. 2 x 10 75 

long float 

1 1 

|IJKQLLA | 
j IJKQILB j 
| IJKQLLcj 

_ - J. - . j 

384 

T 

|Argument 
|(IHELNL) 

1 

I 

< 

7. 2 xl 0 75 

short float 

T T 

|IJKQSSD | 

304 

1 

|(Radian 

Arg 

| < 2 18 xpi 


LOS/LOG10/LOG2 


SIN/COS/ 
SIND/COSE 


long float 


IJKQSSE 

IJKQSSC 

IJKQSSA 


|Degree Arg| < 2 18 xl80 
( IHESNS) 


IJKQSLD 
IJKQSLE 
IJKQSLC 
IJKQSLA 


|Radian Arg| < 2 50 xpi 
|Degree Arg| < 2 5O xl80 

( IHES NL) 


TAN/TAND 


short float 


long float 


IJKQTSB 

IJKQTSA 


|Radian Arg| < 2 ia xFi 
|Degree Arg| < 2 i8 xl80 
(IHETNS) 


IJKQTLE 

IJKQTLA 


|Radian Arg| < 2 5 °xpi 
(Degree Arg| < 2 5O xl80 
(IHETNL) 


ATAN(X) 

ATAN(Y,X) 

ATAND(X) 

ATAND(Y, X) 


short float 


long float 


IJKQNSD 
IJKQNSE 
IJKQNSC 
IJKQNSA 


IJKQNLD 

IJKQNLE 

IJKQNLC 

IJKQNLA 


0 < |X,Y | < 7. 2 xl 0 75 

(IHEATS) 

0 < | X , Y | < 7.2xl0 75 
(IHEATL) 


SINH/COSH 


short float 
long float 

short float 

long float 


IJKQCSA 

IJKQCSE 


208 
(60) * 


|Arg| < 174.6 
{IHESHS) 


IJKQCLA 

IJKQCLE 


288 
(61) * 


(Arg| < 174.6 
(IHESHL) 


IJKQDSA 

IJKQDLA 


212 
(60) * 


(Arg| < 7.2xl0 75 
(IHETHS ) 


288 
(61) * 


|Arg| < 7.2xl0 75 
(IHETHL) 
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NolName 


Arqument(s) 



BUILT-IN FUNCTIONS CONTAINED 

IN THE D 

IN THE FULL-SET 
-LEVEL COMPILER 

LANGUAGE, BUT 

NCT IMPLEMENTED 

ALLOCATION 

DATAFIELD 

LBOUND 

ONCHAR 

CNSOURCE 

COMPLETION 

DIM 

LENGTH 

ONCODE 

POINTER 

COMPLEX 

EMPTY 

LINENO 

CNCCUNT 

FCLY 

CONJG 

HBOOND 

NULLO 

ONFILE 

PRIORITY 

COUNT 

IMAG 

OFFSET 

ON KEY 

REAL 




ONLOC 

STATUS 
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APPENDIX C. I/O SUBROUTINES 



Number 


Pagesize 


Stream 

Constructor I 


Stream 

Construetorll 


Format I 


Format II 


Consecutive 
Euffered 
Transmitter 


Consecutive 

Unbuffered 

Transmitter 


Regional 

Transmitter 


Regional 
Extent I 


Regional 
Extent II 


Indexed 

Sequential 

Transmitter 


Indexed 

Direct 

Transmitter 


Internal 

Name(s) 


IJKTPSM 


IJKTSTM 
IJKTSTN 
IJKTSTR 


IJKTLCM 
IJKTSTM 
IJKTSTN 
IJKTSTR 


IJKTFDM 


IJKTGDI 

IJKTGDO 


IJKTCBM 


I JKTCQi-' 


IJKTRGM 


IJKTXRM 


IJKTXRN 


IJKTSIM 


IJKTDIM 


Description 


Controls number of 
lines on printed page 


Constructs a logical 
stream from physical 
record and vice versa 


Same as Stream Con¬ 
structor I except 
that LINE or COLUMN 
is used 


Associates a variable 
with its editing 
descriptor 


Same as Format I 


Transmits data to/ 
from the buffer from/ 
to a record variable 
for consec. files 


Transmits data 
directly from/to an 
external device 
directly to/from a 
record variable 


| Transmits data to and 
(from a regional de- 
| vice via a hidden 
I buffer 


Determines extent of 
regional file at open 
time and serves as 
file addressing rou¬ 
tine to subroutine 8 


Same as 9 


Transmits data to/ 
from indexed data 
sets in seq. access 
access 


Transmits data to/ 
from indexed data 
sets in direct access 


Reason for Inclusion in 
Object Program 


The PAGESIZE option appears 
in an OPEN statement 


Always present for files 
declared with the STREAM 
attribute 


Always present fer files 
with the STREAM attribute, 
with format list containing 
LINE or COLUMN, or with PUT 
statement containing the 
LINE option 


GET/PUT FILE EDIT statement 
appears in source program 


GET/PUT STRING EDIT state¬ 
ment appears in source 
program 


READ/WRITE/LCCATE/REWRITE 
statement is used for a 
consecutive buffered file 


READ/WRITE/REWRITE statement 
is used for a consecutive 
unbuffered file 


READ/WRITE statement is used 
for a regional file 


A regional file exists 
for 2311 or 2314 


A regional file exists 
for 2321 


READ/WRITE statement is used 
for indexed sequential file 


READ/WRITE statement is used 
for indexed direct file 


Eytes 


I/O Subroutines, Part 1 of 2 
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Number 

T-- 

1 

| Name 

4 -r - 

— r - - 

(Internal 
(Name(s) 

X 

\ 

|Description 

X 

| Reason for Inclusion in 
|Object Program 

— T - ~ 

1 

j Ey t es 

L 

13 

T 

|Display 

1 

1 

l 

T T 

|IJKTDPD I Handles DISPLAY 
| IJKTDPRIstatement and REPLY 
| |option 

_L X 

T 

|DISPLAY statement 
|in source program 

1 

appears 

| 184 

1 

1 

14 

f 

(LIST-I/O 

1 

L 

T 

jIJKTLIM 
| 

T 

|Handles list-directed 
|input 
i 

j GET 

1 

x 

[FILE/STRING] 

LIST 

1 

110 68 

1 

15 

|LIST-I/O 

1 

x 

|IJKTLOM 

1 

X 

T 

|Handles list-directed 
1 output 

| PUT 

J_ 

[FILE/STRING] 

LIST 

| 

1 1076 

1 

. X 


^Subroutines 2 and 3 are never both used in any object program. 

2 Requires a 200-byte format scanner. May be required by either subroutine 4 or 5,, 
but is present only once. 

♦ Requires an additional subroutine of 100 bytes,. May be required by several 
subroutines but is present only once. 
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Standard Tape File Label 



Identifier Number of File Security 

Generation 


The standard tape file label format and contents are as follows: 


> 

ti 

m 

3 

Cu 

H* 

X 

W 


W 

M 

(D 

f 

0) 

tr 


ti 

3 

0) 

(+ 

CO 


FIELD 

NAME AND LENGTH 

DESCRIPTION 

FIELD 

NAME AND LENGTH 

DESCRIPTION 

■ 

LABEL IDENTIFIER 

3 bytes, EBCDIC 

Identifies the type of label 

HDR - Header — beginning of a data file 

EOF = End of File — end of a set of data 

EOV- End of Volume — end of the physical reel 

9. 

CREATION DATE 

6 bytes 

Indicates the year and the day of the year that the 
file was created: 

Position Code Meaning 

1 blank none 

2 - 3 00 - 99 Year 

4 - 6 001 -366 Day of Year 

(e.g., January 31, 1965 would be entered as 65031) 

2. 

FILE LABEL NUMBER 

Always a 1 

3. 

FILE IDENTIFIER 

17 bytes, EBCDIC 

Uniquely identifies the entire file, may contain only 
printable characters. 

■ 

FILE SERIAL NUMBER 

6 bytes, EBCDIC 

Uniquely identifies a file/volume relationship. This 
field is identical to the Volume Serial Number in the 
volume label of the first or only volume of a multi¬ 
volume file or a multi-file set. This field will normally 
be numeric (000001 to 999999) but may contain any six 
alphameric characters. 

10. 

EXPIRATION DATE 

6 bytes 

Indicates the year and the day of the year when the 
file may become a scratch tape. The format of this 
field is identical to Field 9. On a multj-file reel, 
processed sequentially all files are considered to ex- ' 
pire on the same day. 

11. 

FILE SECURITY 

1 byte 

Indicates security status of the file. 

0 = no security protection 

1 = security protection. Additional identification of 
the file is required before it can be processed. 

(Not used by DOS/TOS) 

5. 

VOLUME SEQUENCE NUMBER 

4 bytes 

Indicates the order of a volume in a given file or 
multi-file set. The first must be numbered 0001 and 
subsequent numbers must be in proper numeric sequence. 

1 

FILE SEQUENCE NUMBER 

4 bytes 

Assigns numeric sequence to a file within a multi-file 
set. The first must be numbered 0001. 

12. 

BLOCK COUNT 

6 bytes 

Indicates the number of data blocks written on the file 
from the last header label to the first trailer label ex¬ 
clusive of tape marks. Count does not include check¬ 
point records. This field is used in Trailer Labels. 

H 

GENERATION NUMBER 

4 bytes 

Uniquely identifies the various editions of the file. 

May be from 0001 to 9999 in proper numeric sequence. 

13. 

SYSTEM CODE 

13 bytes 

Uniquely identifies the programming system. 

8. 

VERSION NUMBER OF 
GENERATION 2 bytes 

Indicates the version of a generation of a file. 

14. 

RESERVED 

7 bytes 

Reserved. Should be recorded as blanks. 


\> 
I*n 
ltd 
IM 
I z 
la 

IH 

IX 

i 

iw 

!• 


IW 

IH 

If 

r 

if 

!« 

Iw 

If 


w 

IO 

w 

IS 

ICO 


H 

O 






































































Standard DA.SD File Label, Format 1 (Part 1 of 3) 


Field 



t-Format 

Identifier 


Extent 

Count 


JL 


Bytes used in last 
block of directory 



Indicator Number 


Format 1: This format is common to all data files on Direct Access Storage Devices. 


FIELD 

NAME AND LENGTH 

DESCRIPTION 

— 

FIELD 

NAME AND LENGTH 

DESCRIPTION 


FILE NAME 

44 bytes, alphameric 

EBCDIC 

This field serves as the key portion of the file label. 

The remaining fields comprise the DATA portion of the file label: 


Each file must have a unique file name. Duplication of 
file name will cause retrieval errors. The file name can 
consist of tree sections: 

1. File ID is an alphameric name assigned by the user 
and identifies the file. Can be 1 -35 bytes if gene¬ 
ration and version numbers are used, or 1 -44 bytes 

2. 

FORMAT IDENTIFIER 

1 byte, EBCDIC numeric 

1 = Format 1 

■ 


3. 

FILE SERIAL NUMBER 

6 bytes, alphameric EBCDIC 

Uniquely identifies a file/volume relationship. It is 
identical to the Volume Serial Number of the first or 
only volume of a multi-volume file. 

■ 


if they are not used. 

2. Generation Number. If used, this field is separated 
from File ID by a period. It has the format Gnnnn, 

■ 

VOLUME SEQUENCE NUMBER 

2 bytes, binary 

Indicates the order of a volume relative to the first 
volume on which the data file,resides. 

■ 


where G identifies the field as the generation number 
and nnnn (in decimal) identifies the generation of 
the file. 

3. Version Number of Generation. If used, this section 

5. 

CREATION DATE 

3 bytes, discontinuous binary 

Indicates the year and the day of the year the file was 
created. It is of the form YDD, where Y signifies the 
year (0-99) and DD the day of the year (1 -366). 

I 


immediately follows the generation number and has 
the format Vnn, where V identifies the field as the 
version of generation number and nn (in decimal) 
identifies the version of generation of the file. 

■ 

EXPIRATION DATE 

3 bytes, discontinuous binary 

Indicates the year and the day of the year the file 
may be deleted. The form of this field is identical to 
that of Field 5. 

1 


Note: The Disk Operation System compares the entire 
field against the file-ID given in the DLBL statement. 
The generation and version numbers are treated 
differently by Operating System/360. 

7A 

EXTENT COUNT 

Contains a count of the number of extents for this file 
on this volume. If user labels are used, the count does 
not include the user label track. This field is maintained 
by the Disk Operating System programs. 























































Standard DA.SD File Label, Format 1 (Part 2 of 3) 


> 

Ti 

T3 

(D 

3 

Qj 

f-*- 

X 


td 


H- 

M 

(D 


t* 

tu 

tr 

(D 


o 

w 


FIELD 

NAME AND LENGTH 

DESCRIPTION 

7B 

BYTES USED IN LAST BLOCK 

Used by Operating System/360 only for partitioned 


OF DIRECTORY 

(library Structure) data sets. Not usea .y the Disk 


1 byte, binary 

Operating System. 


7C 

SPARE 

Reserved. 



1 byte 



8 

SYSTEM CODE 

Uniquely identifies the programming system. The charac¬ 


13 bytes 

ter codes that can be used in this field are limited to 

0-9, A-Z, or blanks. 


RESERVED 

Reserved 



7 bytes 



10. 

FILE TYPE 

| The contents of this field uniquely identify the type of 


2 bytes 

data file: 




Hex 4000 = Consecutive organization 

Hex 2000 = Direct-access organization 

Hex 8000= Indexed-sequential organization 

Hex 0200= Library organization 

Hex 0000= Organization not defined in the file label. 

11. 

RECORD FORMAT 

The contents of this field indicate the type of records 


1 byte 

contained in the file: 




Bit 

Position Content 

Meaning 



0 and 1 01 

Variable length records 



10 

Fixed length records 



11 

Undefined format 



2 0 

No track overflow 



1 

File is organized using 
track overflow (Opera¬ 
ting System/360 only) 



3 0 

Unblocked records 



1 

Blocked records 



4 0 

No truncated records 



1 

Truncated records in file 



5 and 6 01 

Control character ASA 
code 



10 

Control character 
machine code 



00 

Control character not 
stated 



7 0 

Records have no keys 



1 

Records are written 
with keys. 

12. 

OPTION CODES 

Bits within this field are 

used to indicate various options 


1 byte 

used in building the file 




Bit 




0 = If on, indicates data file was created using Write 
Validity Check. 



1 1 - 7 = unused 



NAME AND LENGTH 


DESCRIPTION 




BLOCK LENGTH 

2 bytes, binary 

Indicates the block length for fixed length records or 
maximum block size for variable length blocks. 

RECORD LENGTH 

2 bytes, binary 

Indicates the record length for fixed length records or 
the maximum record length for variable length records. 

KEY LENGTH 

1 byte, binary 

Indicates the length of the key portion of the data 
records in the file. 

KEY LOCATION 

2 bytes, binary 

Indicates the high order posnon of the data record. 

DATA SET INDICATORS 

1 byte 

Bits within this field are used to indicate the following: 

Bit 

0 If on, indicates that this is the last volume on which 
this file normally resides. This bit is used by the 

Disk Operating System 

1 If on, indicates that the data set described by this 
file must remain in the same absolute location on 
the direct access device. 

2 If on, indicates that Block Length must always be 
a multiple of 7 bytes. 

3 If on, indicates that this data file ist security pro¬ 
tected; a password must be provided in order to 
access it. 

4-7 Spare. Reserved for future use. 

SECONDARY ALLOCATION 

4 bytes, binary 

Indicates the amount of storage to be requested for this 
data file at End of Extent. This field is used by Opera¬ 
ting System /360 only. It is not used by the Disk Ope¬ 
rating System routines. The first byte of this field is 
an indication of the type of allocation request. Hex 
code C2 (EBCDIC B) blocks (physical records), hex 
code E3 (EBCDIC T) indicates tracks, and hex code 

C3 (EBCDIC C) indicates cylinders. The next three 
bytes of this field is a binary number indicating how 
many bytes, tracks or cylinders are requested. 

LAST RECORD POINTER 

5 bytes, discontinuous binary 

Points to the last record written in a sequential or 
partition-organization data set. The format is TTRLL, 
where TT is the relative address of the track contai¬ 
ning the last record, R is the ID of the last record, 
and LL is the number of bytes remaining on the track 
following the last record. If the entire field contains 
binary zeros, the last record pointer does not apply. 

SPARE 

2 bytes 

Reserved 

EXTENT TYPE INDICATOR 

1 byte 

Indicates the type of extent with which the following 
fields are associated: 

HEX CODE 

00 Next three fields do not indicate any extent. 

01 Prime area (Indexed Sequential); or Consecutive 
area, etc., (i.e., the extent containing the 
user's data records.) 

02 Overflow area of an Indexed Sequential file. 

04 Cylinder Index or master Index area of an 

Indexed Sequential file. 






































































Standard DASD File Lafcel, Format 1 (Part 


OJ 

0 

t-h 

u> 



FIELD 


NAME AND LENGTH 


DESCRIPTION 





25-28. 

ADDITIONAL EXTENT 

10 bytes 

These fields have the same format as the fields 21 -24 
above. 

29-32. 

ADDITIONAL EXTENT 

10 bytes 

These fields have the same format as the fields 21 -24 
above. 

33. 

POINTER TO NEXT FILE LABEL 
WITHIN THIS LABEL SET 

5 bytes, discontinuous binary 

The address (format CCHHR) of a continuation label if 
needed to further describe the file. If field 10 indicates 
Indexed Sequential organization, this field will point 
to a Format 2 file label within this label set. Other¬ 
wise, it points to a Format 3 file label, and then only 
if the file contains more than three extent segments. 

This field contains all binary zeros if no additional 
file label is pointed to. 


































DLBL-EXTENT Indicator 



n mi n n HBHHB BBn —— n— 



I. DLBL-EXTENT Indicator X'80 1 = Next EXTENT on new pack, 

X'40' = Last EXTENT 

X'20' = Bypass EXTENT (SD), or number of EXTENTS (DA or ISFMS), 
X'10' = New value on same unit. 

X'08' = EXTENT limits omitted, 

X'04' = EXTENT converted to DASD address. 


2. 

Filename 


3. 

DA/IS Switch 

Same as field 1 except that only bits 4 and 5 are used for DA or ISFMS. 

4. 

File ID 

File identifier including generation and version numbers. 

If field is missing on DL8L card, filename padded with blanks is inserted. 

5. 

Format ID 

Numeric 1 is inserted. 

6. 

File Serial Number 

Volume serial number from first EXTENT. 

7. 

Volume Sequence Number 

Always initialized to X'0001'. 

8. 

Creation Date 

Initialized with 3 bytes of X'OO'. 

9. 

Expiration Date 

If date is in the form YYDDD, it is converted to YDD, 

If date is in retention period form, 1 to 4 characters, the field is padded with 
binary zeros. 

10. 

Reserved 

The retention period, if specified, is converted to a 2-byte number and 
inserted in this field. 

11. 

Open Code 

DLBL type: 

S = Sequential 

D = Direct Access 

C or E = Indexed Sequential File Management System 

12. 

System Code 

Initialized to contain: 

DOS/360 VER 3. This field is not processed by DOS. 

13. 

Volume Serial Number 

Volume serial number for EXTENT. 

14. 

EXTENT-Type 

Same codes as in Format 1 label: 


X'OO' = Next three fields do not indicate any extent. 

X'OV = Prime area (ISFMS) or consecutive area, etc., (i.e., the extent 


containing the user's data records). 

X'02' = Overflow area of an ISFMS file. 

X'04' = Cylinder index or master index of an ISFMS file. 
X'40' = User label track area. 

X'8n' = Shared cylinder indicator, where n = 1, 2, or 4. 


15. 

EXTENT Sequence Number 

Number of extents as determined by the EXTENT card sequence. 

16. 

EXTENT Lower Limit 

Relative extent converted to the form HHnnT for// DLBL job control statement, or 
CCHH from // DLAB job control statement. 

17. 

EXTENT U^per Limit 

Same as field 16, but for upper limit. 

18. 

System Lkiit Class 

System Unit Order 

Device class and unit numbers. 

19. 

2321 Lower Call 

2321 Ujjper Call 

2321 EXTENT lower and upper limit bin numbers. 


Note; For Sequential Disk files, a complete 104-byte block is repeated for each new EXTENT. For Direct Access and ISFMS files, 
only fields 13 through 18 are repeated for each EXTENT. 


Format of DASD Label Information in Label Area Reserved by LABTYP Card 
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APPENDIX F. COMPILE-TIME DIAGNOSTIC MESSAGES 


In the list of diagnostic messages below, cessary for him to do sc. However,, even 

the message text is preceded by the message when system action successfully corrects an 

number and the applicable severity code. error, the user should remember that, if he 

Where necessary, the messages are followed subsequently recompiles the same program, 
by an explanation, an example, a descrip- he will get the same diagnostic message 

tion of the action taken by the system, and again unless he has corrected the source 

the response required from the user. error. 

Explanation, Example, and System Action are 
given only when the text of the message is 

not sufficiently self-explanatory. Note: Cne or more of the following four 

diagnostic messages may appear after one of 
When no User Response is stated, the the messages 5C003I through 5C030I in order 

user should assume that he must correct the to give additional information. These four 
error in his source program unless the messages are printed without message nuin¬ 
action taken by the system makes it unne- bers and severity codes. 


CHARACTER MARKED BY ASTERISK IS NOT IN 60 CHAR. SET. 

Note_: This diagnostic message will only be printed for errors in DECLARE 

statements. 

THE PRECEDING ERRCR CONCERNS THE VARIABLE NAMED variable name 

THE PRECEDING ERROR CONCERNS THE ATTR. FACTCRIZATICN BEGINNING WITH declare- 
statement item 

'_' REPRESENTS CHARACTER STRING CONSTANT. 

Explanati on ; Illegal use of character-string constant. Since external repre¬ 
sentation of the character-string constant is not available,, the constant is 
replaced by four periods. 

Example: DECLARE N PICTURE A'99999*. Due to the illegal character 'A' the 

string '99999* is not recognized as numeric picture but as character-string 
constant. The following messages will be issued where xx represents the sta¬ 
tement number: 

5C019I xx S INVALID ATTRIBUTE(S) IGNORED..A*_' 

■'_' REPRESENTS CHARACTER STRING CONSTANT. 

THE PRECEDING ERROR CONCERNS THE VARIABLE NAMED N. 

5A001I T NO COMPILER OUTPUT SPECIFIED IN OPTION STATEMENT. 

5A002I T NOT THE SAME OR WRONG MEDIUMTYPES FOR SYS001 , SYS002, SYS00 3. 

Exp la nati on : SYS001, SYS002, and SYS003 must be assigned tc the same device 

type, i.e., either to magnetic tape drives, or to 2311 or 2314 DASD extents. 

5A003I T PARTITION SIZE TOG SMALL FOR THE 12K VARIANT. 

5A004I W ASTERISK IS NOT FOLLOWED BY BLANK. CARD IGNORED. 

Exp la nation: Refers to PL/I PROCESS card. A plus sign is treated as an 

asterisk. 

5A005I W ASTERISK AND BLANK(S) NOT FOLLOWED BY KEYWORD PROCESS. 

Explanat ion : Refers to PL/I PROCESS card. A plus sign is treated as an 

asterisk. 
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5A006I 

5A007I 

5A008I 

5A009I 

5A010I 

5A011I 

5 COO 31 

5C004I 

5C005I 

5C006I 

5 CO 0 7 I 

5C008I 

5C009I 

5C010I 

5 com 
5C012I 

5C013I 


W OPTION invalid option UNKNOWN. FOLLOWING TEXT IGNORED. 

Refers to PL/I PROCESS card. 

W KEYWORD PROCESS NOT FOLLOWED BY ELANK. CARD INGORED. 

Explana ti on: Refers to PL/I PROCESS card. 

W PROCESS LIST TOO LONG. IGNORED IS invalid option 

Exp la na tion : Refers to PL/I PROCESS card. 

W PROCESS LIST TOO LONG. 

Ex plana ti on : Refers to PL/I PROCESS card. 

W COMMA NOT FOLLOWED BY OPTION. 

E xplana tion: Refers to PL/I PROCESS card. 

W OPTION NOT FOLLOWED BY COMMA. 

E xpla na ti on: Refers to PL/I PROCESS card. 

E LEVELNUMBER OF STRUCTURE ITEM TOO HIGH. ASSUMED TO BE level number 

Exp la nation: Level number must not be higher than 255. 

S NO OPTIONS LIST WITH ENVIRONMENT ATTRIBUTE. 

Example: DECLARE FIL FILE ENVIRONMENT INPUT; 

S OPTION LIST NOT CLOSED EY ). PARENTHESIS INSERTED AT END OF STATEMENT. 

Explanation: This message concerns the ENVIRONMENT and the INITIAL 

attributes. 

Example: DECLARE FIL FILE PRINT ENV(MEDIUM(SYSLST,1403) F(80) ; 

S NO POINTER SPECIFIED FOR BASED ITEM. 

Example: DECLARE VAR BASED; 

S ERROR IN SPECIFICATION OF POINTER FOR BASED ITEM. IGNORED IS based data item 

Examples: 1. DECLARE B BASED (A,D); 

2. DECLARE C BASED (F(I)) ; 

S NO BASE SPECIFIED FOR DEFINED ITEM. 

Example: DECLARE X DEFINED; 

S ERROR IN SPECIFICATION OF EASE FOR DEFINED ITEM. IGNORED IS defined data item 
S ERROR IN RETURNS LIST. IGNORED IS invalid elements 
Example: DECLARE FUNCT ENTRY RETURNS (7); 

E NO LENGTH SPECIFIED FOR STRING. LENGTH ASSUMED TC BE maximum value 
S ERROR IN STRING LENGTH SPECIFICATION. IGNORED IS invalid element 
Example: DECLARE CHARA CHARACTER (STU); 

S ERROR IN PRECISION ATTRIBUTE. IGNORED IS invalid element 
Example: DECLARE VAR FIXED (XYZ); 
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5C014I 
5 CO 151 
5C016I 

5C017I 


E VALUE OF ARRAY BOUND MUST NOT BE 0. ASSUMED TO BE 1. 

E VALUE OF ARRAY BOUND TOO HIGH. ASSUMED TO BE maximum value 
S ERROR IN DIMENSION ATTRIBUTE. IGNORED IS invalid element 
Example; DELCARE A(7,I,J); 

E RIGHT PARENTHESIS MISSING. CORRESPONDING LEFT ONE IGNORED BEFORE declare_Sta- 
tement item 


5C018I 

5C019I 

5C020I 

5C021I 


S NESTING OF ATTRIBUTE FACTORIZATIONS TOO DEEP. DECLARATIONS FROM NESTING LEVEL 
9 ON IGNORED 

E INVALID ATTRIBUTE(s) IGNORED.. invalid attribute [,invalid attribute...] 

E SYNTACTICALLY ILLEGAL CHARACTER(S) IGNORED.. ignored character(s) 

Example: DECLARE PP FIXED $; 

S DECL. TOO LONG. ITEMS EXCEEDING LIMIT ARE IGNORED BEGINNING WITH declare Sta¬ 
tement item 


5C022I 

5C023I 

5 CO241 
5C025I 
5C026I 
5C027I 
5 CO 28 I 
5C029I 

5 CO301 
5C0U4I 


S NO NAME OR FACTORIZATION FOR LEVELNUMBER.. level number 
Example: DECLARE 1 STR, 2, 3 STR1; 

S NO INITIALIZATION WITH INITIAL ATTRIBUTE. 

Ex amp le; DECLARE VAR INITIAL STATIC; 

S LEVELNUMBER MUST NOT BE 0. ASSUMED TO BE 1. 

E STRINGLENGTH MUST NOT BE 0. ASSUMED TO BE maximum Value 

E PRECISION TOO LARGE. SET TO 53. 

E SCALEFACTOR TOO GREAT. ASSUMED TO BE maximum value 

E STRINGLENGTH TOO GREAT. ASSUMED TO BE maximum value 

E LIST OF INITIALIZATIONS NOT CLOSED BY ). PARENTHESIS INSERTED AT END OF 
STATEMENT. 

E NUMBER OF DIGITS IN PRECISION ATTRIBUTE MUST NOT BE 0. DEFAULT VALUE ASSUMED 

S SYNTAX ERROR IN INITIALLIST. NO INITIALIZATION CF variable name 

The INITIAL-list is composed of the following elements: con¬ 
stants, iteration-factors, left and right parentheses, and commas. Error 
number 44 will be issued if 


• the succession of these elements is incorrect, or 

• the constants or iteration-factors are incorrect. 


Examples of incorrect succession; 

1. INITIAL (1,2,) 

2. INITIAL (1,(2, 3)) 

3. INITIAL (1,(10) (2,3)4) 

Examples of incorrect constants; 

1. 1013B 

2. 123E 

3. 1.21.2L 
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Examples of incorrect iteration-factors: 

1. INITIAL ((-3)0) 

2. INITIAL ( ( 0) (1, 2) ) 

3. INITIAL (10(1,2)) 

Moreover, message number 44 will be issued, if there is an illegal character 
within the INITIAL-list, e.g., INITIAL (2 * 3). 

5C045I S NESTING DEPTH EXCEEDS 8. NO INITIALIZATION OF variable name 

5CO461 S ITERATION FACTOR NOT ALLOWED FOR SCALAR VARIABLE. NC INITIAL. OF variable 

name 

Example: DECLARE Z FIXED INITIAL ((3)4); 

5C047I S ITERATION FACTOR GREATER THAN 32K. NO INITIALIZATION OF variable name 

5CO481 S WRONG DATA TYPE. NO INITIALIZATION OF variable name 

Exp la nation: This error message will be issued, if the type of a constant 
within the INITIAL-list is not compatible with the type of the variable to be 
initializ ed. 

Example: DECLARE A DECIMAL FIXED INITIAL ('ABC'); 

| 5CO491 S INITIAL VALUE IS NOT A LABEL CONST. WITHIN THE SCOPE CF LAEEL VARIABLE. NO 

INITIAL. CF variable name 

Explana ti on: The label constant is internal to a procedure or begin block 

internal to the block in which the label-variable is declared. 

Example: P: PROCEDURE; 

DECLARE LAB LABEL INITIAL (L2); 

BEGIN; 

L 2: END; 

END P; 

5CO501 S MORE THAN ONE CONST. FOR SCALAR VARIABLE. NC INITIALIZATICN OF variable name 

Example: DECLARE Y INITIAL (3E + 01,, 33 E + 2) ; 

5CO51I W TOO MANY CONSTANTS FOR ARRAY. EXCESS ONES IGNORED FOR array name 

5C052I S INITIALLIST TOO LONG. INITIAL ATTRIBUTE IGNORED FOR variable name 

5C053I T MULTIPLE DECLARATION OF NAME name 

Exp la nati on : This message only occurs if a STATIC structure containing ele¬ 
ments with INITIAL attribute is multiply declared. 

5C054I E ERROR IN F-OPTION OF FILE filename 

5CO 551 E LEFT PARENTHESIS INSERTED IN FILE filename 

5CO561 E ILLEGAL ELEMENT IGNORED IN FILE filename 

5C057I E RIGHT PARENTHESIS INSERTED IN FILE filename 

5C058I S ILLEGAL USAGE OF REGIONAL OPTION. OPTION IGNORED IN FILE filename 
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5C059I 


5 CO 6 01 

5C061I 

5C062I 

5C063I 

5C064I 

5C065I 

5C066I 


5 CO 6 71 


5 CO 6 8 I 


5C069I 


5C070I 

5C071I 

5C072I 

5C073I 

5C074I 

5C075I 

5C076I 


5C077I 


5C078I 

5C079I 


W KEYED ATTRIBUTE INSERTED FOR DIRECT AND/OR INDEXED FILE filename 

Ex plan ation; Files with the attributes DIRECT and/or INDEXED must have the 
attribute KEYED. 

T KEYLENGTH SPECIFICATION MISSING IN FILE filename 

Ex pla na ti on: KEYLENGTH must be specified in files having the KEYED attribute. 

T ERROR IN KEYLENGTH SPECIFICATION FOR FILE filename 

T ERROR IN BLOCKSIZE SPECIFICATION FOR FILE filename 

E ERROR IN BUFFERS OPTION. BUFFERS(1) ASSUMED FOR FILE filename 

E ERROR IN OFLTRACKS SPECIFICATION. OFLTRACKS IGNORED FCR FILE filename 

T ERROR IN MEDIUM OPTION FOR FILE filename 

T INVALID LOGICAL DEVICE NAME IN FILE filename 

Example: DECLARE FILE2 FILE INPUT ENVIRONMENT (MEDIUM (SYSRDR, 2540) ...); 
SYSRDR is an invalid logical unit (choice must be made between SYSIPT and SYS- 
nnn (nnn=001-222]). 

T INVALID DEVICE TYPE SPECIFICATION IN FILE filename 

Example: DECLARE FILE3 FILE_ENVIRONMENT (MEDIUM(...,2020)...); 

T DEVICE TYPE OR FUNC. ATTR. CONFLICTS WITH LOG. DEVICE NAME IN FILE filename 

Example: DECLARE FILE4 FILE INPUT ENVIRONMENT (MEDIUM (SYS001, 1403)...); 

Input from Printer 1403 impossible. 

T CONFLICTING ATTRIBUTES AND/OR OPTIONS IN FILE filename 

Examples: 1. DECLARE FILES FILE INPUT RECORD UPDATE ...; 

2. DECLARE FILE6 FILE OUTPUT ENVIRONMENT (MEDIUM (SYS002, 1403) 
LEAVE NOLABEL F (81) ) ; 

T INPUT, OUTPUT, OR UPDATE ATTRIBUTE MISSING IN FILE filename 
E DIRECT ATTRIBUTE INSERTED FOR REGIONAL FILE filename 
E NOLABEL OPTION INSERTED FOR UNBUFFERED TAPE FILE filename 
T ENVIRONMENT ATTRIBUTE MISSING IN FILE filename 
T MEDIUM OPTION MISSING IN FILE filename 

T BLOCKSIZE NOT DIVISIBLE EY RECORDSIZE IN FILE filename 

W RECORDSIZE OF RECORD NOT DIVISIBLE BY 8 IN FILE filename 

Ex planation : The record size must be divisible by 8 if blocked records are to 
be transferred by a READ SET or LOCATE statement. 

W DIVISION OF BLOCKSIZE BY 8 DOES NOT YIELD REMAINDER OF 4 IN FILE filename 

Ex plan a tion : If the V option is used, the record size of records to be trans¬ 

ferred by a READ SET or LOCATE statement must yield a remainder of 4 after 
division by 8. 

T BLOCKSIZE BEYOND DEVICE DEPENDENT LIMITS IN FILE filename 
T F, U, OR V OPTION MISSING IN FILE filename 
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5CO801 T ADDITIONAL ERROR{S) IN FILE filename 


E xpla nation; The maximum number of error messages issued for one file 
declaration is 7. If the file declaration contains more than 7 errors, this 
message is printed. 

5C081I E INVALID ATTRIBUTE IGNORED IN FILE filename 

5C084I T ERROR IN EXTENT NUMBER SPECIFICATION FOR FILE filename 

5C085I E EXTENTNUMBER SET TO 3 IN DECLARATION OF FILE filename 

| 5C082I W PRINT ATTRIBUTE ASSUMED FOR PHYSICAL DEVICE PRINTER IN FILE filename 

5 CO 861 S INVALID DEVICE TYPE SPECIFIED FOR HIGHINDEX IN FILE filename 

Exp la nati on : Only the device types 2311 and 2314 are allowed. 2321 may be 
specified if the device type in the•corresponding MEDIUM option is also 2321. 

Sys te m Action; The invalid device type is used for execution. 

5C087I S NUMBER OF OFLTRACKS EXCEEDS DEVICE DEPENDENT LIMITS IN FILE filename 

Exp la nati on : The number n of overflow tracks specified in the OFLTRACKS 

option must be within the following limits: 

0 < n < 8 for 2311 
0 < n < 18 for 2314 and 2321 

System Action; The value in error is used for execution. 

5C088I S KEYLOC BEYOND RECORDSIZE LIMITS IN FILE filename 

E xplan a ti on: The key location n specified in the KEYLOC option must be within 

the following limits: 

1 < n < record size - keylength + 1 

The message is issued if n > record size - keylength +1. If n = 0 message 
5C092I is printed. 

Sys te m Action: The value in error is used for execution. 

| 5C089I S ADDBUFF AREA LESS THAN MINIMUM OR GREATER THAN MAXIMUM IN FILE filename 

Exp la na ti on: The number n of bytes specified in the ADDBUFF option must be 

within the following limits: 

64 + block size + keylength < n < 32K 

Sys te m Ac ti on: The value in error is used for execution. 

5C090I S RECORDSIZE NOT GREATER THAN KEYLENGTH IN FILE filename 

Exp la nation: For blocked records, the record size must be greater than the 

keylength. If KEYLOC is specified, this also applies for unblocked records. 

System Ac tion : The value in error is used for execution. 

5C091I W RECORDSIZE EXCEEDS LIMIT FOR OVERFLOW RECORD IN FILE filename 

Exp la nation: The lengths n of the records on the overflow tracks are 

restricted as follows: 


n < 3605 - keylength - 10 bytes for 2311 
n < 7249 - keylength - 10 bytes for 2314 
n < 1984 - keylength - 10 bytes for 2321 
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5C092I E INDEXAREA, ADDBUFF, HIGHINDEX OR KEYLOC OPTION IGNORED IN FILE filename 

Exglanation: One of the options INDEXAREA, ADDBUFF,, HIGHINDEX or KEYLOC is 

either not followed by a parenthesized specification or is followed by an 
invalid specification. 

| 5C093I S INDEXAREA LESS THAN MINIMUM OR GREATER THAN MAXIMUM IN FILE filename 

Exp la nation: The number n of bytes specified in the INDEXAREA option must not 

exceed the following limits: 

3 + (keylength +6) < n < 32K 

S yste m Action: The value in error is used for execution. 

5C095I E MORE THAN ONE INITIAL ATTRIBUTE FOR variable name 

Sys tem Acti on: Only the first INITIAL attribute is used. 

5C096I E MORE THAN ONE DIMENSION ATTRIBUTE FOR variable name 

Sys te m Acti on : Only the first dimension attribute is used. 

5C097I E MORE THAN ONE LEVELNUMBER FOR STRUCTURE ITEM Structure item name 

System Action: The first level number is used. 

5C098I E MORE THAN ONE PRECISION OR STRING LENGTH SPECIFIED FOR variable name 

Sys te m Ac ti on: The first precision or length is used. 

5C099I E MORE THAN ONE PICTURE ATTRIBUTE SPECIFIED FOR variable name 

Sys tem Acti on: Only the first PICTURE attribute is used. 

5C100I E MORE THAN ONE BASE OR POINTER SPECIFIED FOR variable name 

Example: DECLARE NAME EASED(X) DECIMAL FIXED(7) BASED(Y); 

5C1G1I E STRUCT. NOT START. WITH LEVELNUMEER 1, ASS. TO BE MAJOR STRUCT. NAME IS Struc¬ 
ture name 

E xamp le; DECLARE 2A, 2B, 2C; A is assumed to be the major-structure name. 

5CIO21 E NON-FILETYPE ATTRIBUTES IGNORED FOR FILE filename 

5C103I E NON-APPLICABLE ATTRIBUTE<S) IGNORED FOR STRUCTURE Structure name 

Example; DECLARE 1 A1 FIXED, 2B, 2C; 

5C104I S INVALID INITIALIZATION IGNORED FOR variable name 

Exp lanatio n; Initialization with INITIAL-attribute is conflicting with type 
or attributes of the variable. 

Example; DECLARE E ENTRY INITIAL (SUBPRO); 

5C105I E ALIGNMENT PERFORMED FOR EITSTRING bitstring-variable name 

Ex pla nati on ; Bit strings contained in structures and bitstring-arrays are 
aligned by the D-compiler. 

5C106I E MORE THAN 12 DIFF. PARAMETERS TO EE PASSED TO OR FROM BLOCK NUMBER block 
number 

Exp la nation: Number of parameters is limited to 12. 
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5C107I E TOO MANY DIGITS SPECIFIED IN PREC. ATTR. DEFAULT VALUE ASSUMED FOR variable 
name 


5C108I E NO SCALE ALLOWED WITH FLOAT OR BIN FIXED. DFLT.PRECIS. ASSUMED FOR variable 
name 

Ex pla nation; A scale factor must not be specified within the precision attri¬ 
bute of BINARY FIXED or FLOAT variables. The whole precision attribute will 
be ignored and the default precision is assumed for that variable. 

Exa mp les: 

Illegal: Assumed: 

BINARY FIXED (15,3) BINARY FIXED (15) 

BINARY FIXED (31,0) BINARY FIXED (15) 

DECIMAL FLOAT (3,2) DECIMAL FLOAT (6) 

DECIMAL FLOAT (6,0) DECIMAL FLOAT (6) 

BINARY FLOAT (53,8) BINARY FLOAT (21) 

BINARY FLOAT (53,0) BINARY FLOAT (21) 

5C1091 E ENTRY INTO EXT. PROC. IS OF TYPE EXTERNAL. INTERNAL ATTR. IGN. FOR entry name 
5C1101 T MORE THAN 32K BYTES REQUIRED FOR ARRAY array name 

5C111I T POINTER AND/OR BASE IDENT. NOT OR INCORRECTLY DECI. FOR ARRAY array name 

Example: DECLARE (J, BAS (10) BASED (U); U is not a pointer. 

5C113I T REFERENCED VARIABLE OR RELATED BASE/POINTER INCORR. FOR ARRAY array name 

Example; DECLARE 1 A, 2 (B(10) # C), X(10) DEFINED B; 

Defining on elements of structures is not allowed. 

5C115I E REPLICATION FACTOR OF ZERO IGNORED IN INITIAL LIST OF variable name 

5C116I E STRING CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 

5C117I E EXPONENTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 

5C118I E FLOAT. CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST CF variable name 

5C119I E ZERO ASSUMED FOR INVALID FLOAT. CONSTANTS IN INITIAL LIST CE variable name 

5C120I E MAX. VALUE ASSUMED FOR INVALID FLOAT. CONSTANTS IN INITIAL LIST OF variable 
name 

5C121I E STERLING CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 

5C122I E BINARY FIXED CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 

5C123I E DECIMAL FIXED CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST CF variable name 

5C124I E RESULT OF CONST. CONV. UNDEF. DUE TO SIZE ERROR. CHECK INITIAL LIST OF vari¬ 
able name 


5E001I T ILLEGAL CHARACTER IN LABEL PREFIX OR STATEMENT BEGINNING. 

Exam ple s; 1. LBl: +B2: LB3: ABC = 50; 

Second label is not an identifier. 

2. LAB; +BC = 50; 

Statement begins with an illegal character. 

Sys tem A ction ; The error statement is replaced by a dummy statement. 
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5E002I 


STATEMENT TYPE CANNOT BE IDENTIFIED. 


5E003I 


5E004I 


5E005I 


5E006I 


5E007I 


5E008I 


5E009I 


E xpla na tion ; An identifier at statement beginning is neither a statement 
identifier nor followed by the assignment symbol =. 

Exa mp le: POTT SKIP EDIT (B) (A); PUTT is not a statement identifier. 

Sys tem Ac tion : The error statement is replaced by a dummy statement. 

NESTING OF BLOCKS EXCEEDS 3 LEVELS. 

Expla nati on : Implementation restriction. The depth of nested blocks is 

restricted to 3 levels. The external proceduce is the first level. 

S ystem Actio n: The flagged statement is replaced by the required number of 
END statements. The subsequent statements are ignored. 

NUMBER OF BLOCKS EXCEEDS 63. 

Explan a tion : Implementation restriction. The total number of blocks in an 

external procedure (including the external procedure) must not exceed 63. 

S ystem Ac tion: The flagged statement is replaced by the required number of 
END statements. The subsequent statements are ignored. 

Use r R e sponse : Reduce number of blocks in one compilation by generating 
external procedures. 

SEMICOLON FOUND IN IF-STATEMENT BEFORE 'THEN' IS DETECTED. 

Example: IF A = 1; THEN GOTO LAB; 

Sys te m Action: The incorrect IF statement is replaced by a dummy statement. 
NO LABEL IS PERMITTED BEFORE AN ELSE-CIAUSE. 

Example: IF A = 1 THEN ...; LAB: ELSE B = 5; 

ELSE FOLLOWED BY INVALID UNIT. 

E xample : IF A = 1 THEN ...; ELSE 5 = E; where B is a correctly declared 

variable 

Sys te m Ac tion : The invalid ELSE clause is replaced by a dummy statement. 
DO-GROUP NESTING EXCEEDS 12 LEVELS. 

Ex p lan a tion : Implementation restriction. The maximum depth of a nested set 

of DO statements (including repetitive specifications in GET or PUT state¬ 
ments) is 12 . 

Sy stem Action : The flagged DO statement is replaced by a dummy statement and 
the following text is ignored. 

INVALID END STATEMENT. 

Exp la nati on : The keyword END is not followed by a semicolon or by the label 

of its associated PROCEDURE, BEGIN, or DO statement. 

Exampl e: LAB: PROCEDURE; 

END LAS; 
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5E010I 

5E011I 

5E012I 

5E013I 

5E014I 

5E015I 


5E016I 

5E017I 

5E020I 


LOGICAL END OF PROGRAM DETECTED BEFORE END OF SOURCE TEXT. 

Exp la nation; Text follows the logical end of the program. The programmer 
seems to have made an error in matching END statements with PROCEDURE, BEGIN,, 
or DO statements. 

System Acti on : All text following the flagged statement is ignored. 

MORE THAN ONE LABEL BEFORE PROCEDURE OR ENTRY STATEMENT. 

Exp lana tion: PROCEDURE and ENTRY statements must have one and only one label. 

NO LABEL BEFORE PROC. OR ENTRY STATEMENT. LABEL B INSERTED, 

Exp la nation: PROCEDURE and ENTRY statements must have one and only one label. 

§¥§tem_Action: The compiler inserts the label 'B:' before the flagged state¬ 

ment. This may cause further error messages (e.g., multiple declaration). 

FIRST STMNT NOT PROCEDURE STMNT. FOLLOWING TEXT IGNORED. 

5 }_^ 2 tion: Further error messages may result (e.g., 5E012I and 5E015I). 

STATEMENT TOO LONG. STATEMENT TRUNCATED. 

Exp la na ti on: Internal buffer overflow. 

Use r Res p onse: Subdivide statement and recompile. 

END OF SOURCE MODULE FOUND BEFORE LOGICAL END OF PROGRAM. 

Exp lana ti on : Problem causing the error may be: 

1. Missing final semicolon. 

Example: LAB: PROCEDURE OPTIONS (MAIN); 

END 

/* 

2. Missing END statement(s). 

Example: LAB: PROCEDURE OPTIONS (MAIN); 

DO I = 1 TO 5; 

END; 

/* 

RIGHT PARENTHESIS MISSING IN THIS STATEMENT. 

Ex§!5el® : A(2,3,1 = 15; where A is declared as a three-dimensional array. 

END OF SOURCE MODULE FOUND IN PARENTHESIZED LIST. 

ELEMENT IN PREFIX LIST IS NOT A LEGAL CONDITION NAME. 

Exp la nation: The prefix list contains either an illegal condition name or no 
condition name at all. 

Examples: 1. ( ): LAB: statement; 

2. (ZERODIVIDE,+UNDERFLOW): LAB: statement; 

3. (ZERODIDIVE, UNDERFLOW): LAB: statement; 
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System Acti on: The entire prefix list is ignored. 

5E021I T NAME IN PREFIX LIST NOT FOLLOWED BY COMMA CR PARENTHESIS. 

E xa mples: 1. (ZERODIVIDE UNDERFLOW): statement; 

2. (CVERFLOW+CONVERSION): Statement; 

Sys te m Ac tion : The entire prefix list is ignored. 

5E022I T CONFLICTING CONDITION NAMES IN PREFIX LIST. 

Ex amp le: (NOCONVERSION,CONVERSION): statement; 

S y s te m A c tion : The conflicting names are ignored. 

5E023I T COLON AFTER PREFIX LIST IS MISSING. 

| 5E025I T RIGHT PARENTHESIS IS MISSING IN DATA OR FORMAT LIST 

5E026I T MAIN PROCEDURE HAS INCORRECT OPTION LIST. 

Ex planation : For the D-level compiler, the option list of a main procedure is 

defined as 

MAIN[,ONSYSLOG] 

It must be enclosed in parentheses immediately followed by a semicolon. The 
problem causing the error may be: 

1. Missing comma or right parenthesis. 

Example: - TEST: PROCEDURE OPTIONS (MAIN; 

2. Element in list which is not an identifier. 

Example: TEST: PROCEDURE OPTIONS (+AIN); 

3. Identifier in list which is neither MAIN nor ONSYSLCG. 

Example: TEST: PROCEDURE OPTIONS (MIAN); 

4. Option list not followed by semicolon. 

5E034I T TWO OR MORE IDENTICAL IDENTIFIERS IN ONE PARAMETER LIST. 

5E041I T MAJOR OR MINOR STRUCTURE IN IF STATEMENT. 

5E042I T ARRAY IN ELEMENT-EXPRESSION OF IF-STATEMENT 
5E043I T INCORRECT SYNTAX IN THIS STATEMENT. 

5E045I T EXTERNAL NAME(S) OF THIS PROGRAM LONGER THAN 8 CHARACTERS. 

E xplanatio n: See explanation of message 5E046I. 

5E046I E EXTERNAL NAME(S) OF THIS PROGRAM LONGER THAN 6 CHARACTERS. 

E xpla n ation : Implementation restriction. The length of external identifiers 

must not exceed 6 characters. This also applies to names that are external by 
default such as filenames, names of external procedures,, etc. If an identifi¬ 
er has 7 or 8 characters, the object program can still be executed but errors 
may possibly occur- If the external identifier is longer than 8 characters 
the compilation is terminated (message 5E045I is issued). The statement in 
error indicated in this message need not be the statement in which the error 
is detected. 

5E047I T TOO MANY IDENTIFIERS IN THIS STATEMENT. 
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User Response; Subdivide statement and recompile. 


5E049I T POINTER AND/OR BASE IDENTIFIER NOT OR INCORRECTLY DECLARED. 


Examples: 1. DECLARE G CHARACTER (4); 

DECLARE K CHARACTER (4) BASED (G); 

K = 'TEST'; 

2. DECLARE P DECIMAL FLOAT POINTER; 

DECLARE A BASED (P); 

A = A+l; 

In both examples, the third statement is flagged. 

5E050I T ATTRIBUTE TABLE OVERFLOW. TOO MANY VARIABLES IN THIS STMNT. 

Use r Re sponse : Subdivide statement and recompile. 

5E051I T INVALID DEFINING 

Exa mpl e: DECLARE 1 A, 

2 B DEFINED D, 

2 C; 

DECLARE D; 

B = 4; 

The third statement causes the error message. 

5E053I T OPERAND IN A GOTO STATEMENT IS NOT A LABEL. 

ion: The operand in a GOTO statement must always be a label constant 

or an element label variable. 

5E055I S ZERO-REPLICATION FACTOR FOR STRING CONSTANT IGNORED. 

5E056I S STRING CONSTANT TOO LONG. TRUNCATED. 

Explana tion : Implementation restriction. The length of bit-string constants 

is restricted to 64 bits; the length of character-string constants is 
restricted to 255 characters. 

Syste m Action: Bit strings exceeding 64 bits and character strings exceeding 
255 characters are truncated on the right. 

5E057I E EXPONENT TOO LONG. TRUNCATED. 

Exp lanatio n: Implementation restriction. The exponent subfield of a decimal 

floating point constant is restricted to 2 digits, and that of a binary float¬ 
ing point constant to 3 digits. 

Sys te m Acti on: The exponent is truncated on the right. 

5E058I E FLOATING-POINT CONSTANT TOO LONG. TRUNCATED. 

Exp lanati on: Implementation restriction. The length of binary floating-point 

data is restricted to 53 bits; the length of decimal floating-point data is 
restricted to 16 digits. 

Sys tem Ac tion: Decimal and binary floating-point constants exceeding 16 
digits or 53 bits, respectively, are truncated on the right, and the exponents 
are increased by the number of digits or bits truncated. 

5E059I E FLOATING-POINT CONSTANT TOO SMALL. SET TO ZERO. 

5E060I E FLOATING-POINT CONSTANT TOO LARGE. MAXIMUM VALUE ASSUMED. 

5E061I E STERLING CONSTANT TRUNCATED. 
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Explanati on : The sterling constant is converted to and stored as decimal 
fixed-point pence. The converted constant must not exceed 15 significant 
digits. 


5E0*?I 


5E063I 


5E064I 


5E065I 


5E067I 


5E068I 


5E06 9I 


5E070I 


5E071I 


5E072I 


System Action; The converted decimal fixed-point pence number is truncated on 
the right. 


BINARY FIXED-POINT CONSTANT TOO LONG. TRUNCATED. 

l££ii?nation: Implementation restriction. The length of binary fixed-point 
numbers must not exceed 31 bits. 

Sys te m Ac tion: The constant is truncated on the right. 

DECIMAL FIXED-POINT CONSTANT TOO LONG. TRUNCATED. 

Explana ti on; Implementation restriction. The length of decimal fixed-point 
numbers roust not exceed 15 digits. 

System Ac ti on; The constant is truncated on the right. 

RESULT OF CONSTANT CONVERSION UNDEFINED DUE TC SIZE ERROR. 

E xpla nation; The number of significant digits resulting from the constant 
conversion is greater than the precision specified for the target. 

Example: DECLARE X FIXED BINARY (10); 

X = 2.444E5; 

TOO MANY CONSTANTS IN THIS COMPILATION. 

Exp lanati on: Internal buffer or constant-counter overflow. 

INVALID CHARACTER STRING. ONE BLANK ASSUMED. 

Expla nati on; The apostrophe opening the character string is immediately fol¬ 
lowed by the closing apostrophe. 

Sys tem Ac tion: The compiler assumes the character string tc consist of one 
blank. 

QUALIFIED NAME NOT DECLARED. 

Example: LAB: PROCEDURE OPTIONS (MAIN); 

STRUCT.SUE1 = 50; 

END; 

REFERENCED VARIABLE OR RELATED BASE/POINTER INCORRECT. 

Example: DECLARE A CHARACTER (3) BASED (P); 

A = 1 XYZ *; 

If P is not declared, the assignment statement causes the error 
message. 

A ) HAS BEEN INSERTED IN ARGUMENT OR FORMAL PARAMETER LIST. 

Example: CALL DYNDUMP (A,B ; 

UNSPECIFIED SYNTACTICAL ERROR. 

Example: DO A = ( B TO C EY D WHILE (E)); where A is a variable and B, C, D, 

E are valid expressions. The parentheses enclosing the specification of the 
DO statement are illegal. 

INTERNAL BUFFER OVERFLOW. (PROBABLY TOO MANY PARENTHESES). 
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Use r R esponse; Subdivide statement and recompile. 

5E073I E ONE OR MORE ) INSERTED TO OBTAIN A VALID EXPRESSION. 

Example: DECLARE (A, B, C, D, E) DECIMAL FIXED; 

A = B** (C+D+E ; 

5E074I E ACTION FOR 5E073I MAY CAUSE ADDITIONAL ERROR MESSAGES. 

5E075I T 2ND OPERAND IN DISPLAY STATEMENT INVALID. 

Exp lana tion: The second operand of the DISPLAY statement must be a character¬ 

string element variable enclosed in parentheses. 

5E076I T SHILLING FIELD OF STERLING CONSTANT GREATER THAN 19. 

5E077I T ERROR IN PARAMETER, OR SUBSCRIPT, OR ARGUMENT LIST. 

5E079I T WHILE FOLLOWED BY INVALID EXPRESSION. 

5E080I T 1ST OPERAND IN DISPLAY STATEMENT INVALID. 

ion: The first operand in a DISPLAY statement must be an element 

expression enclosed in parentheses. 

5E081I T INVALID OR MISSING CONDITION NAME. 

MEl^nat ion: The keyword ON is not followed by a valid condition name and/or 
filename. 

Examples: 1. ON +CNVERSION GOTO LAE; 

2. ON CNVERSION GOTO LAB; 

3. ON ENDFILE GOTO LAB; (filename missing) 

4. ON ENDPAGEt?RATE)GOTO LAB; (invalid filename) 

5E082I T INVALID OR MISSING OPERAND AFTER GOTO IN ON STATEMENT; 

Exp la nation: The keyword GOTO in an ON statement is not followed by an 

identifier. 

Examples: 1. ON CONVERSION GOTO; 

2. ON CONVERSION GOTO +AE; 

5E083I T UNSPECIFIED ERROR IN ON STATEMENT. 

Explanation: The ON statement has the following format: 

ON condition (SYSTEM;| ON-unit} 

The compiler detected that the ON-condition is neither followed by the keyword 
SYSTEM nor by a valid ON-unit. 

Example: ON CONVERSION +5; 

5E084I T INVALID CALL STATEMENT. 

Ex planation: No identifier,, especially no entry name,, is following the key¬ 

word CALL. 

Examples: 1. CALL +AB; 

2. CALL; 

5E085I T ERROR IN CLOSE LIST. 

ExEiimtion: The CLOSE statement has the following format: 

CLOSE FILE (filename) f, FILE (filename)] ...; 
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Either the keyword CLOSE or one of the commas in the list is net followed fcy 
the keyword FILE. 


5E086I 


5E087I 


5E088I 

5E089I 

5E090I 


5E091I 

5E092I 


| 5E093I 


Ex amp les: 1. CLOSE FLE (OUT); 

2, CLOSE (OUT); 

3. CLOSE FILE (OUT), (IN); 

ERROR IN FILE OPTION 

Exp la nati on : Syntax error. The file option consists of the keyword FILE fol¬ 
lowed by the file name enclosed in parentheses. 

E xamp les: 1. OPEN FILE (+-*); 

2. OPEN FILE IN); 

3. CLOSE FILE (IN ; 

where IN is a valid file name. 

ERROR IN OPEN LIST. 

Exp la nati on : The OPEN statement has the following format: 

OPEN FILE (filename) options group [,FILE (filename) options group]...; 

Either the keyword OPEN or one of the commas in the list is not followed by 
the keyword FILE. 

Examples: 1. OPEN FLE (IN); 

2. OPEN (IN); 

3. OPEN FILE (IN),, (OUT); 

WRONG FILE OPTION IN READ, WRITE, OR REWRITE STMNT. 

E xplanation : The keyword READ, WRITE, or REWRITE is not followed by the key¬ 

word FILE. 

INVALID OR MISSING OPERAND IN PAGESIZE OPTION. 

NO SET OPTION IN LOCATE STATEMENT. 

Explana ti on: The file option in a LOCATE statement is not followed by the 

keyword SET. 

Examples: 1. LOCATE A FILE (OUT); 

2. LOCATE A FILE (OUT) SE (P); 

INVALID OR MISSING OPERAND IN KEY OPTION. 

Exp la nati on : Syntax error. The KEY option must consist of the keyword KEY 

followed by a parenthesized expression representing a character string. 

INVALID FROM, FILE* OR INTO OPTION. 

Exp lanation : Syntax error. FROM, FILE, or INTO is not followed by a valid 

operand,, or the operand is not enclosed in parentheses. 

Example: PUT FILE OUT EDIT (BUFFER) (A); 

INVALID OR MISSING OPERAND IN SET OR STRING CFTICN. 

Ex p lana tion : Syntax error. E.g., the SET option consists of the keyword SET 

followed by the name of a pointer variable enclosed in parentheses. 

Examples: 1. LOCATE A FILE (OUT) SET (PI ; where PI is a pointer variable. 

2. LOCATE A FILE (OUT) SET (1); 
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5E094I T 


5E096I T 


5E097I E 
5E098I T 

5E099I T 


5E100I T 

5E101I T 
5E102I T 
5E103I T 
5E104I T 
5E105I T 
5E108I T 
5E109I S 
5E110I S 

5E111I T 


5E112I T 
5E113I T 


INVALID OR MISSING OPERAND IN KEYFROM OPTION. 

The keyword KEY FROM roust be followed by an element expression 
enclosed in parentheses. 

ERROR IN FORMAT LIST 

Exp lana tion: Tne error roay be caused by: 

1. Left parenthesis of one of the format lists is missing. 

2. A left parenthesis or one of the commas in the list is neither followed by 

an iteration factor nor by a valid format item. 

3. An iteration factor in the list is neither followed by a valid format item 

nor by a format list. 

MISSING ) INSERTED IN FORMAT LIST. 

MISSING OR INVALID CONTROLVARIABLE IN DC-STATEMENT. 

Exam pl e: DO C(5) =1 TO 7; 

The control variable C must not be subscripted. 

INVALID LINE, COLUMN, OR X FORMAT ITEM. 

: Missing or invalid operand in a LINE, COLUMN, cr X-forirat item. 

Example: PUT SKIP EDIT (BUFFER) (X(5„ A); 

In the above example, the right parenthesis enclosing the operand of the X- 
format item is missing. 

INVALID R FORMAT ITEM. 

Exp lan at io n: Missing or invalid operand in an R-format item. 

MISSING ( IN E OR F FORMAT ITEM. 

MISSING INTEGER IN E OR F FORMAT ITEM. 

MISSING ) IN E OR F FORMAT ITEM. 

COMMA MISSING AFTER 1ST INTEGER IN E FORMAT ITEM. 

BUILT-IN FUNCTION AS ARGUMENT OF PSEUDO-VARIABLE. 

INVALID OPTION LIST IN READ OR WRITE STATEMENT. 

MAIN PROCEDURE MUST NOT RETURN AN EXPRESSION VALUE. 

CHARACTER OR BIT EXPRESSION IS TOO LONG. 

Exp la na tion : The number of characters resulting from the evaluation of a 
character-string expression must not exceed 255. For bit-string expressions, 
the number of resulting bits must not exceed 64. 

DATA, OPTION, OR FORMAT LIST CONTAINS INVALID ITEM(S). 

Examples: 1. PUT SKIP EDIT (BUFFER (A); 

Right parenthesis missing after BUFFER. 

2. PUT EDIT SKIP (BUFFER) (A); 

The keyword EDIT must immediately be followed by the data 
specification. 

INVALID DATA ELEMENT. 

INVALID REPETITIVE SPECIFICATION. 
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5E114I S INCORRECT ENTRY DECLARATION. 

5E116I T MISSING OR WRONG BASED VAR. OR FILE OPTION IN LOCATE STMNT. 

Exp la nation: Syntax error. The LOCATE statement has the following format: 

LOCATE based variable FILE (filename) SET (pointer variable); 

The based variable must be unsubscripted and must not be a minor structure or 
an element of a structure. 

E xamp les: 1. LOCATE +1 FILE (OUT) SET (Pi) ; 

2. LOCATE A1 (OUT) SET (PI); 

5E117I T INVALID EXPRESSION. 

E xplanati on: The error may be caused by: 

1. Missing operand. 

2. Two infix operators not separated by operand. 

5E118I E WARNING FOR INCORRECT PREFIX IN ENTRY STATEMENT. 

5E119I T TOO MANY ENTRY POINTS AND/OR ON CONDITIONS IN BLOCK. 

5El201 S ILLEGAL NULL STATEMENT IN ON-UNIT. 

E xpla nation: The null on-unit must not be specified for the conditions CONV¬ 

ERSION, ENDFILE, and KEY. 

5E121I T END OF INVALIDLY NESTED DO GROUP. NESTING EXCEEDS 12 LEVELS. 

E xplanation : Implementation restriction. The maximum depth of a nested set 

of DO statements (including repetitive specifications in GET or PUT state¬ 
ments) is 12. This message is issued as a follow-up to message 5E008I. 

S ystem Acti on: The flagged END statement is replaced by a dummy statement. 

5E122I S ILLEGAL FILENAME IN ON CONDITION. 

5El231 S ILLEGAL LABEL IDENTIFIER IN ON UNIT. 

Example: DECLARE C DECIMAL FIXED; 

ON CONVERSION GOTO C; 

5E124I E REVERT STATEMENT WITHOUT CORRESPONDING ON STATEMENT. 

5E126I E INCORRECT NUMBER OF ARGUMENTS. 

E xamp le: B = SUBSTR(A, 1 1); 

Due to a missing comma in the argument list, the compiler recognizes only two 
arguments. 

5E127I E OPTIONS MAY NOT BE SPEC. FOR SUBPROCEDURES. OPTIONS IGNORED. 

5E128I T BUILT-IN FUNCTION NAME IN INCORRECT CONTEXT. 

Explanati on: A built-in function name has explicitly been declared with the 

BUILTIN attribute, but is used in a non-function-reference context. 

Example: DECLARE ABS BUILTIN; 

ABS = ABS + 1; 

N ot e: Built-in functions without arguments or which have been declared con¬ 

textually only are not concerned. 

5E129I S CONVERSION OF ARITH. DATA TO BIT STRING YIELDS RESULT GT 31. 
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5E130I 

5E131I 


5E132I 


5E133I 

5E134I 

5E135I 

5E137I 


5 El 3 8 I 
5E140I 
5E141I 
5E142I 
5E143I 
5E144I 
5E145I 
5E146I 

5E147I 

5E148I 


5E149I 

5E150I 


5E152I 


T INVALID KEY. 

T MORE THAN 65534 VARIABLES AND/OR CONSTANTS. 

Exp lanati on: An internal overflow of the variable and constant counter of the 

compiler occurred. 

T STACK OVERFLOW. (IF-NEST TOO DEEP). 

Exp la nation: Implementation restriction: The maximum number of IF statements 

in a nest is 100. 

T PROBABLY BAD IF-NEST. 

T ELSE IMMEDIATELY FOLLOWS IF. 

T ELSE IMMEDIATELY FOLLOWS ANOTHER ELSE. 

T ILLEGAL STATEMENT USED AS UNIT IN AN IF STATEMENT. 

Examples: 1. IF element expression THEN FORMAT (format-list); 

2. IF element expression THEN unit-1 EISE FORMAT (format-list); 

The FORMAT statement is not permitted as unit in an IF statement,. 

T ELSE WITHOUT CORRESPONDING IF. 

S INCORRECT SPECIFICATION OF CONSTANT ARGUMENT. 

T TOO MANY STRUCTURES IN STRUCTURE ASSIGNMENT. 

T NUMBER OF INTERMEDIATE RESULTS IS TOO BIG. STACK OVERFLOW. 

T NON-IDENTICAL STRUCTURING IN STRUCTURE ASSIGNMENT. 

T ARRAY IN PSEUDO-VAR OR OPERAND IN ARRAY-ASSIGN IS NOT ARRAY.. 

T OPERAND ON THE LEFT SIDE OF STRUCTURE-ASSIGNMENT IS NO STRUCT. 

T INVALID CONVERSION OR ILLEGAL COMBINATION OF DATA TYPES. 

Example: P = A; where A is a character string and P is a pointer variable. 

T NON-IDENTICAL NUMBER OF ARRAY ELEMENTS IN ARRAY-ASSIGNMENT. 

T UNPERMITTED ASSIGNMENT TO FUNCTION VALUE. 

E xplanation : Tne left side of an assignment statement is a built-in function 

which is neither a STRING built-in function nor a pseudo variable. 

S NUMBER OF ARGUMENTS IS GREATER THAN TWELVE. 

T TOO MANY REPETITIVE SPECIFICATIONS. 

Exp lanati on: Implementation restriction. The number of iteration specifica¬ 

tions must not exceed 50. 

Example: DO I = 1 TO 2, 2 TO 3, 3 TO 4, 51 TO 52; 

Sys te m Ac tion : The flagged DO statement is replaced by a dummy statement and 
the following text is ignored. 

T PROCESSING OF STATEMENT TERMINATED. (TABLE OVERFLOW). 

Explanation: An internal table overflow occurred during the processing cf a 

DO statement. 

Since the DO statement will be deleted from the text string, there will be a 
surplus END statement in the source program. 
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5E153I T 
5E154I W 
I 5E155I S 


5E0156I S 


5E157I W 
| 5E158I T 

5E159I T 
5E160I T 

5E161I T 
5E162I S 
5E163I T 
5E164I E 

5E165I S 
5E166I S 
5E167I W 


5E168I S 
5E169I S 
5E170I S 
5E171I T 

5E172I S 


User Re sponse : Subdivide statement and recompile. 

POINTER AS ELEMENT OF DATA LIST. 

POSSIBLE ERROR IN FORMAT ITEM IF USED FOR OUTPUT. 

INCORRECT ARGUMENT IN BUILT-IN FUNCTION. 

Example: DECLARE <A,B) CHARACTER (2); 

B = SUBSTR(A, 5,4); 

Since A and B are only two characters long, the arguments 5 and 4 in the argu¬ 
ment list are invalid. 

INVALID NUMBER OF DIMENSIONS. 

E xampl e: A (2 3,1) = 15; where A is declared as a three-dimensional array. 

The error is caused by a missing comma between the integers 2 and 3. 

ERROR IF USED FOR OUTPUT. 

ENTRY NAME OR LABEL ON LEFT SIDE OF ASSIGNMENT STATEMENT. 

Example; LAB: N = 3; DO LAB = A TO B; where A and B are valid expressions. 

R FORMAT ITEM IN ITERATION LIST AT DEPTH GREATER THAN TWO. 

STATEMENT TOO LCNG. STATEMENT DELETED. 

Expl a na ti on: Internal buffer overflow. 

Use r Re sponse * Subdivide statement and recompile. 

TOO MANY IDENTIFIERS IN PROGRAM. 

CONTROL ITEMS NOT ALLOWED FOR THIS STATEMENT. 

NO LABEL DESIGNATOR IN REMOTE FORMAT ITEM. 

LABEL CONST. IN R FORMAT ITEM NOT INTERNAL TO CRRNT BLOCK. 

Exp lanat i on : The R format item and the specified FORMAT statement must be 

internal to the same block. 

NO POINTER VARIABLE IN SET OPTION. 

INCORRECT RECORD VARIABLE. 

RECORD VARIABLE ON WRONG BOUNDARY. 

E xplanatio n: The variable is not on a double-word boundary. An error may 

occur if later a READ statement with the SET option is issued, and a similar 
variable is used. 

RECORD VARIABLE CN WRONG BOUNDARY. 

RECORD VARIABLE LENGTH NOT IN ACCORDANCE WITH RECORDSIZE. 

INCORRECT VARIABLE IN STRING OPTION. 

INCORRECT NAME IN FILE OPTION. 

Explana ti on: File name not or incorrectly declared. 

STATEMENT NOT IN ACCORDANCE WITH FILE DECLARATION. 
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5E173I T INCORRECT ITEM IN DATA LIST. 


5E174I T NO STRING VARIABLE IN SUESTR PSEUDO-VARIABLE. 


5E175I T 

5E176I S 

5E177I T 

5E178I T 
5E179I S 


5E180I S 
5E181I S 
5E182I W 

5E183I S 
5E184I S 
5E186I T 
5E187I S 
5E218I S 
5E219I S 

5E228I E 
5E229I E 


5E230I W 


FORMAT LIST TOC LONG. 

Explana ti on; Internal buffer overflow. 

FORMAT STATEMENT NOT PRECEDED BY LABEL. STATEMENT DELETED. 

Exp lana tion; A FORMAT statement must be preceded by at least one label. 

TOO MANY FORMAT LABELS IN PROGRAM. 

Ex planati on; Implementation restriction. The number of labels preceding FOR¬ 
MAT statements in one program is restricted to 127. 

NESTING OF ITERATION LIST IN FORMAT LIST TOO DEEP. 

REMOTE FORMAT ITEM IN FORMAT STATEMENT. STATEMENT DELETED. 

Ex planation ; A FORMAT statement cannot contain an R format item. 

Sys te m A ction ; The error statement is deleted from the text string. 

INCORRECT A,B FORMAT ITEM IN GET STATEMENT. 

VIOLATION OF FORMAT ITEM RESTRICTION. 

MOD (LENGTH OF RECORD VARIABLE,8) IS UNEQUAL TO FOUR. 

Ex planati on; If the V option is used, the record size of records to be trans¬ 
ferred by a READ SET or LOCATE statement must yield a remainder of 4 after 
division by 8. 

INCORRECT VARIABLE IN REPLY OPTION. 

WRONG VARIABLE IN SET OR KEYTO OPTION. 

TOO MANY REPETITIVE SPECIFICATIONS IN DATA SPECIFICATION. 

LENGTH OF RECORD VARIABLE GREATER THAN MAXBLCCKSIZE. 

ILLEGAL EXPRESSION IN ASSIGNMENT STATEMENT. 

MORE THAN TWELVE PARAMETERS IN PROCEDURE/ENTRY STATEMENT. 

Sys te m Ac tion ; The parameter list is truncated on the right. 

CHARACTER STRING IN DISPLAY STATEMENT LONGER THAN 80 BYTES. 

EVALUATION OF OPTTM. SUBSCR. YIELDS DISPLACEM. GREATER 32K 

Ex plan ation; At least one subscripted variable in this statement is outside 
the declared bound of the array. 

Example; The semantically wrong statement A(I) = A (1+35000); where A is de¬ 
clared as A(10), will cause this diagnostic message. This error is only 
detected if OPT is specified. 

IMPLEMENTATION DEFINED SUBROUTINE. 

Exp la na ti on: This warning message will appear for each statement using one of 

the facilities DYNDUMP, OVERLAY, IJKTRON, IJKTRCF, IJKEXHC. 
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5E231I 

5E232I 

5E233I 

5E234I 

5E235I 

5E236I 

5E238I 

5E239I 

5G01I 
5 GO 21 
5 GO 31 
5G04I 
5G05I 
5 GO 61 
5 GO 71 
5W01I 
5W02I 


TOO MAN* ARGUMENTS FOR IJKEXHC IN ONE BLOCK. 

INVALID ARGUMENT(S) FOR EXHIBIT CHANGED IGNORED. 

UNPERMITTED VALUE OF CONSTANT SUESCRIPT(S). 

E xpla nation: Constant subscript(s) too large. Ihe absolute value of the dis¬ 

placement to the origin of the array is greater than 32767. 

NO SCALE FACTOR GIVEN IN BUILT-IN-FUNCT. 

Exp lana ti on : Concerning the built in functions ADD,, MULTIPLY,, DIVIDE for 

fixed-scale arguments. 

INTERMED. RESULT IN ADD-FUNCT. TOO LONG. STATEMT. IGNORED 

Ex pla nation: Length of necessary working fpace (resulting from precision and 

scale of the arguments) greater than hardware defined limits (only for fixed 
scale arguments). 

INTERMED SCALE-FACT. EXCEEDS PERMITTED RANGE 

Exp lanation : The intermediate scale factor in the built-in-functions ADD, 

MULTIPLY,, or DIVIDE is greater than 127 or less than -128 (only for fixed- 
scale arguments). 

TIME/DATE/OR NULL ASSUMED TO NAME PL/I BUILT-IN-FUNCTION 

Exp lan a tion : Builtin functions without arguments should be explicitely de¬ 

clared with the BUILTIN attribute. 

UNKNOWN FUNCTION OR SUBROUTINE. ATTR. ENTRY ASSUMED 

Ex planati on: Entry names must be explicitly declared with the attribute 
ENTRY. 

PROGRAM BLOCK GREATER THAN 32K. COMPILATION TERMINATED. 

SOURCE PROGRAM TOO LONG. COMPILATION TERMINATED. 

STATIC STORAGE OVERFLOW. COMPILATION TERMINATED. 

AUTOMATIC STORAGE OVERFLOW. COMPILATION TERMINATED. 

MORE THAN 256 ESID NUMBERS NECESSARY. COMPILATION TERMINATED. 

MORE THAN 65,534 VARIABLES AND/OR CONSTANTS. COMPILATION TERMINATED. 

POSSIBLE RECURSIVE USE OF EXTERNAL PROCEDURE. COMPILATION TERMINATED. 
SUCCESSFUL COMPILATION. 

COMPILATION IN ERROR. 
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APPENDIX G. I/O STATEMENT FORMAT AND ON-CONDITION CHECKLIST 



CONSE¬ 

CUTIVE 

BUFFERED 


CONSECUTIVE 

UNBUFFERED 


INDEXED ,o N G a ' l 


DIRECT 


REG- IN¬ 
ION AL DEXED 
(3) DIRECT 


TYPE OF FILE 


VALID INPUT/OUTPUT 
STATEMENT FORMATS 
AND APPLICABLE 
' 'N-CONDITIONS 


Q < < 

o a y 

Z q a 

5 o o 

2; Z Z 



lename) 


lename) INPUT 


lename) OUTPUT 


lename) PAGESIZE (n) 


lename) 


lename) EDIT (data) (format) [(data) (format)| . . . 


lename) LIST (data) 


lename) EDIT (data) format) |(data)(format)|... 


lename) LIST (data) 


lename) PAGE (LINE(n)l 


lename)(PAGE|LINE (n)|SKIP (n)) 


H 5 5 

O Q- Q- 


g 3 5 
< O O 


3 S: £:|5 £ < 5 g:<v z> n d g; < d £ < 

—\ —\ I a. —% O a. —o-O- o- —} O o_->0 

2 o o|? oSZohZZZZoSZoS 


=3 fc < O < 

o_ tr Q Q_ £25 

z O *5 2 “5 


| EQB □□□□□□■■! 

I ■■■ ■■■ ■■■E 3 E 9 I 


aaannnnnEna 



FILE (filename)(PAGE|LINE (n)|SKIP (n))EDIT (data)(format)[(data) (format)) 

B 

■ 

BB 

B 

BB 

B 


■ 

fl 


B 

B 

B 

B 

B 




fl 

fl 

fl 


FILE (filename){PAGE|LlNE (n)|SKIP (n) > LIST (data) 



1 °. 








□ 














FILE (filename) INTO (variable) 




o 


BB 


BBB 


o 

_ 











FILE (filename) SET (pointer) 



■a 


BB 








BB 





BB 


READ 

FILE (filename) INTO (variable) KEY (expression) 



■ 


■■■ 






BBEEBEB 


m 

B 

o 


FILE (filename) INTO (variable) KEYTO (variable) 



B 










O 


o 










FILE (filename) 






o 


















REWRITE 

FILE (filename) FROM (variable) 






MBB 


■BB 






BBB 


FILE (filename) FROM (variable) KEY (expression) 



BB 













BBB 


BBB 

LOCATE 

variable FILE (filename) SET (pointer) 





o 
















B 

B 

B 

WRITE 

FILE (filename) FROM (variable) 



1 


o 



o 




o 











n 

FILE (filename) FROM (variable) KEYFROM (expression) 

■■■■ 




BEBBBIE 1 


CONVERSION 
SIZE _ 

CONDITIONS ENDFILE (filename) 
WHICH MAY ENDPAGE (filename) 

OCCUR - 

KEY (filename) 

RECORD (filename) 
TRANSMIT (filename) 


H^^^^HBBBBBBQBQBB 
H ISBlSillSlSllBBBBQnBQQBflBB 


Symbols used: M — Use of this statement is mandatory 

O = For I/O statements: Use of this statement format is optional 
For ON conditions: This condition may occur 

— Note that GET/PUT STRING is not an I/O statement and may be used without 


Input/Output Statement Formats and ON-Conditions 
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APPENDIX H. FILE DECLARATION ATTRIBUTES AND OPTIONS 


FILE 

ATTRIBUTES 
AND OPTIONS 


filename [l -6 characters] 

FILE 




«■■■■■■■ 

immmmmmmm 


ENVIRONMENT ( 


MEDIUM ( 


SYSIPT, 

SYSPCH, 

SYSLST, 

SYSnnn,[nnn = 000-222] 


250! 125201254011442) 
1403114041144311445) 
2400) 

231112314| 2321) 


U (maxblocksize) 

F (blocksize) 

F (bloclcsize, recslze) 
V (moxblocksize) 


BUFFERS (1) 
BUFFERS (2) 


CTlASAlCTL 360 




consecutive 
REGIONAL (1) 
REGIONAL (3) 
INDEXED 


KEYLENGTH (n)[" ' 9 * 255 for REGIONAL (3) 
|n = 1 - 255 for INDEXED 
EXTENTNUMBER (n)« * 

INDEXMULTIPLE 

HIGHINDEX ({2311|2314 | 23211) 

OFLTRACKS (n) [„ = g I ^ aH other DASDj 
KEYLOC (n) [H n i reciize-lceylength +l] 
INDEXAREA (n)[n<32K] 

ADDBUFF (n)[64+blockslze + keylengthS n<32K 


■■■■■■■BDBI 

■■■■■■■■■■I 


S3 

13 

13 


S = Attribute or option must be specified. 

D “ Default attribute or option if not specified. 

0“ Optional attribute or option. Specify if applicable. 

C Choice must be made between these^options* 

l ~ Must be specified here or in the OPEN statement (but not in both places). 
B =s Optional for unblocked files. The default value for blocked files is n ~ I. 


No entry is peiroltted where a blank qppears. 

* UNBl^FERED is not permitted for files residing on a 2321 Data Cell Drive. 
♦♦For INDEXED files, EXTENTNUMBER (n) must be *>ecifl#d [2 £ n < 256], 

For REGIONAL files, EXTENTNUMBER (n) is optional [0<n<256]. 
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APPEND IX I._ DEFAULT ATTRIBUTES_QF_CCDED_ARITHMETIC_VA RI AE LES 


DECLARED ATTRIBUTES 

DEFAULT ATTRIBUTES 

DECIMAL FIXED 

(5,0) 

DECIMAL FLOAT 

(6) 

BINARY FIXED 

(15) 

BINARY FLOAT 

(21) 

DECIMAL 

FLOAT (6) 

BINARY 

FLOAT (21) 

FIXED 

DECIMAL (5,0) 

FLOAT 

DECIMAL (6) 

None - initial character 1 - N 

BINARY FIXED (15) 

None - all others 

DECIMAL FLOAT (6) 
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APPENDIX J. RESTRICTIONS TO THE PL/I SUBSET LANGUAGE 


ALIGNED_or_UNALIGNED 

Must not be specified for minor-structure 
names. 


Arithmetic Con st ants 

Any embedded blanks in arithmetic constants 
will be deleted from the number string and 
no error message will be given. However, 
embedded blanks in repetition-factor fields 
of PICTURE items are not deleted. 


Arrays 

The maximum number of arrays in a source 
module is 32. 

Arrays of Structures 

Arrays of structures are not implemented. 
Attr ib ute Fa ctorization 

The maximum attribute factorization depth 
is 8. 

Binary Fixed-P oi nt D at a 

Binary fixed-point numbers may have a 
length between 1 and 31 bits. This also 
applies to all intermediate results in 
binary fixed-point form. 

Binary Flo at ing-Point Da ta 

Binary floating-point data may have a 
length between 1 and 53 bits. 

^it_Strings 

Bit strings may have a length between 1 and 
64 bits. The default alignment attribute 
is not implemented; bit strings are aligned 
by the D-Compiler. A warning message is 
given if a bit string associated with the 
default alignment attribute occurs within a 
structure. 

B la nks 

Blanks embedded in arithmetic constants 
will be deleted (see also Arithmetic 
Constants). 

Blanks between operators will also be 
deleted. E.g., X * * Y ; will be inter¬ 
preted as X **Y. Similarly, 'XXX' 'YYY' 
will be interpreted as *XXX''YYY', result¬ 
ing in a character-string value of XXX'YYY. 


Blocks_(of_Program) 

The size of any internal cr external pro¬ 
gram block (exclusive of data) is 
restricted to 32K. The size of an external 
block plus all of its internal blocks 
(exclusive of data) must not exceed 64K. 


The depth of nested blocks is restricted 
to 3, The external procedure counts as 
depth 1. 

The total number of blocks in an extern¬ 
al procedure (including the external proce¬ 
dure) must not exceed 63. 


Blocksize_Cptions 

The block length must be at least 1 byte 
(at least 18 bytes for magnetic tape files) 
and must not exceed 32„767 bytes. The 
device types and corresponding maximum 


block 

lengths are as follows; 


2540 


80 

2540 

(CTLASA, CTL360) 

81 

1442 


80 

1442 

(CTLASA, CTL360) 

81 

2520 


80 

2520 

(CTLASA, CTL360) 

81 

2 5 01 


80 

1403 

(PRINT attribute or CTLASA or 
CTL360) 

133 

1403 

(no PRINT attribute) 

132 

1404 

(PRINT attribute cr CTLASA or 
CTL360) 

133 

1404 

(no PRINT attribute) 

132 

1443 

(PRINT attribute cr CTLASA cr 
CTL360) 

145 

1443 

(no PRINT attribute) 

144 

1445 

(PRINT attribute or CTLASA cr 
CTL360) 

114 

1445 

(no PRINT attribute) 

113 

2400 

(no PRINT attribute) 

32,767 

2400 

(PRINT attribute) 

145 

2311 

(no key, no PRINT attribute) 

3625 

2311 

(PRINT attribute) 

145 

2311 

(including key) 

3605 

2314 

(no key, no PRINT attribute) 

7294 

2314 

(PRINT attribute) 

145 

2314 

(including key) 

7249 

2321 

(no key, no FRINT attribute) 

2000 

2321 

(PRINT attribute) 

145 

2321 

(including key) 

1984 


The block size option V must include the 
control words for the blocks and records. 

Only fixed-length unblocked records are 
permitted for STREAM files. 
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The block size options V and U and the F 
option with the record size option are per¬ 
mitted for magnetic tape files and disk 
files only. 


Bui lt-in Funct io ns 

String arguments must not be used in the 
ROUND built-in function. 

Eit arguments must not be used with the 
UNSPEC built-in function. 


Character Stri ng s 

Character strings may nave a length between 
1 and 255. 


Compatibility wi th OS F P L/I 

1. A GOTO statement which branches direct¬ 
ly into an iterative DO loop will not 
be diagnosed as an error by the D Com¬ 
piler, although such a statement is not 
allowed in the language, and is flagged 
as illegal by the F Compiler. 

2. Certain statements are not recognized 
by the F Compiler (see DYNDUMP , 

IJKEXHC, ... in this Appendix). 

3. The I/O ENVIRONMENT attributes are not 
recognized by the F Compiler. 

Refer also to Appendix B._Upwa rd Compa- 

tibility in the publication IBM System /3 60 
D OS /TQS P L/I S ub set Refere nc e Manu al , Form 
GC28-8202. 


C onver sion 

Arithmetic to bit string: 

The scale factor must be less than the 
precision. 

Bit string to arithmetic: 

The maximum length of the bit string to be 
converted is 31. 

D at a St orage 

Static - internal: 

The static storage for any external proce¬ 
dure (excluding external data) must be less 
than 64K. 

Automatic: 

The automatic storage area per block must 
be less than 64K. 

Data aggregates: 

Each individual data aggregate must be less 
than 32K. 


Dgcima l Fixed- Po int^Data 

Decimal fixed-point numbers may have a 
length between 1 and 15 digits. This also 
applies to all intermediate results in 
decimal fixed-point form. 


Decimal Fl oatin g- Po int Da ta 

Decimal floating-point numbers may have a 
length between 1 and 16 digits. 

D EC LA RE Statement 

The length of a DECLARE statement is unre¬ 
stricted; however, the length of cne 
declaration-unit appearing in a DECLARE 
statement is restricted to 

• 136 syntactical elements, if 10K bytes 
are available to the compiler, and to 

• 2000 syntactical elements, if 46K bytes 
are available to the compiler. 

One declaration-unit is delimited by 

» the keyword DECLARE and a semicolon,, or 

• the keyword DECLARE and a first-level 
comma, or 

• two first-level commas, or 

• a first-level comma and a semicolon. 

Each parenthesis,, identifier, comma, 
attribute., and constant is counted as one 
syntactical element. A character-string 
constant in an INITIAL-list counts as two 
syntactical elements. Consider the follow¬ 
ing example: 

DECLARE (X FIXED, D FLOAT) STATIC, 

(A INITIAL ( 7) ,, B(10) ) EXTERNAL,, 
NAME CHARACTER (4) INITIAL 
('ABCD'); 

The above DECLARE statement consists cf 
three declaration-units, the first of which 
contains 8, the second 13, and the third 10 
syntactical elements. 

DE FINED A ttrib ute 

A bit class variable must not be a DEFINED 
item. The attributes for the DEFINED item 
and the base identifier will not be checked 
to determine whether they correspond to the 
rules for overlay defining. 

Dimension_Attribute 

The maximum number of dimensions is 3. 

Each bound must be an unsigned integer less 
than 32,768. The dimension attribute may 
be factored. 
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DISPLAY_Statement 

The result in the message expression in the 
DISPLAY statement must not exceed 80 chara¬ 
cters. If the REPLY option is used, the 
message must be followed by the EOE (End of 
Block) condition by pressing the appropri¬ 
ate keys. For an example see the SRL pub- 
lication IBM S yste m/360 Mo de l 30 ,_Function¬ 

al Charact er is ti cs, Form A24-3231, Altern¬ 
ate Code Key. 

29_Statement 

The number of iteration specifications in a 
DO nest must not exceed 50. 

The maximum depth of a nested set of DO 
statements is 12. For details on repeti¬ 
tive specification see G ET S ta teme nt. 

DYNDUMP. IJK EXHC , IJKTRON, IJKTROF, OVERLAY 
Names 

The names DYNDUMP, IJKEXHC, IJKTRON, IJK- 
TROF, and OVERLAY are not recognized by the 
OS PL/I compiler. Consequently, the CALL 
statement referring to one of these names 
will result in an unresolved external 
reference from the linkage editor under the 
OS PL/I compiler. Under the D-level com¬ 
piler, a warning message is issued for each 
statement using one of these names. 

E ND St at em en t 

If a label follows the END statement, it 
must be the label of the nearest unmatched 
PROCEDURE, BEGIN, or DO statement. If a 
BEGIN or DO statement is preceded by more 
than one label, only the one closest to the 
statement identifier may be used with the 
END statement. 

Expqnent_Subfield 

The exponent subfield for decimal and 
binary floating-point constants is 
restricted to 3 digit positions for binary 
and 2 digits for decimal constants. 

Files (unb uf fe re d) 

For unbuffered files the RECORD condition 
will not be raised for records of incorrect 
length, because for the implementation of 
unbuffered files the system work files have 
been used (compiler enters the DTFSD para¬ 
meter TYPEFLE=WORK in the DTF table). 

FORMAT State ment 

Replication factors: 

The replication factor in a FORMAT state¬ 
ment may range between 1 and 255. 

The depth of nested replication factors in 
a format list of a FORMAT statement is 
limited to 2. 


Format constants: 

The format constants must be such that w, 
d, s, and p are decimal integer constants. 
Only p may be signed (positive or nega¬ 
tive). The A„ X, LINE, and COLUMN field 
widths must be less than 256. The B field 
width must be less than 65. 

The Tl and F field width must be less than 
33. This width includes the sign fcr cut- 
put fields even when they are positive, 
i.e., written as a blank. A SKIP must be 
less than 4. 

The exponent subfield for input data 
described by the E format specification is 
limited to 2 digit positions. 

The exponent subfield fcr output data 
described by the E format specification is 
always written with 2 digit positions. 


GE T Statement 

The replication factor in a format list in 
GET or PUT statements may range between 1 
and 255. 

The depth of nested replication factors 
in a format list of GET or PUT statements 
is restricted to 5. If the format list 
contains a remote format item that is con¬ 
tained in a replication nest, it must not 
be at a depth greater than 2. 

The depth of a nested set of repetitive 
specifications as well as the total number 
of repetitive specifications in GET and PUT 
statements are restricted tc 11. 


Identifie rs 

The length of EXTERNAL identifiers must not 
exceed 6 characters. This alsc applies tc 
names that are external by default, such as 
file names, names of external procedures, 
etc. 

IF Nesti ng 

The maximum number of IF statements in a 
nest is 100. 

Impl ic i t Decl arations 

The identifiers DATE, NULL, and TIME should 
always be declared explicitly. If they are 
not explicitly declared a warning message 
is issued, and the BUILTIN attribute is 
assumed. 


INITIAL_Attribute 

The length of the INITIAL-list for a 
character-string array is restricted by the 
following formula: 

NC * LE + 14 * NF < NI 
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where 


NC = the number of constants in the 
INITIAL-list 

LE = the length of one array element 

NF = the number of iteration factors 

NI = 1500 (if 10K are available to the 

compiler) 

18000 (if 46K are available to the 
compiler) 

Consider the following example: 

DECLARE CH (10) CHARACTER(250) INITIAL 
( (3) (2) ' A' , 'BV, ( 2) 'C', *D \ 'E\ 'F\ 

' G' , ' H*) ; 

The INITIAL-list in the above DECLARE 
statement contains eight constants and one 
iteration factor. String repetition fac¬ 
tors (as in (2)'A' and (2)'C') are not 
counted. The length of one array element 
is 250 . 

Application of the above formula yields 
a result of 2014 whicn is in error if NI = 
1500. 

KEY_Condition 

The KEY condition will not be raised for 
REGIONAL files if an attempt is made to add 
a duplicate key by a WRITE statement. 

Labels 

The total number of labels for all remote 
FORMAT statements in an external procedure 
must not exceed 127- This restriction is 
independent of the size of the available 
background program area. 

List_I/Q 

The statement PUT LIST(NULL); - where NULL 
is declared as tne built-in function - will 
not be diagnosed as an error, but will be 
executed giving unpredictable output data. 

Names 

Internal names: 

The maximum number of names in all DECLARE 
statements of a program block is 3048 . The 
maximum number of names given all its 
attributes by default is 3048. 

Note: The above restrictions are applic¬ 

able only if the source program is compiled 
on a 16K system. The restrictions are 
eased considerably witn the availability of 
additional core storage. 

External names : 

The number of external names must not 


exceed 255. Names of external structures 
count as two names. This restriction is 
independent of the size cf the available 
background program area. 

Note: The number 255 includes the names of 

all library subroutines used by this 
external procedure. 

Total number of names: 

The total number of distinct internal and 
external names in a source program must not 
exceed 32,000. This restriction is inde¬ 
pendent of the size of the available 
background 


Nes ti ng I/O S t ate ments 

While an I/C statement is active, no other 
I/O statement must be activated (GET and 
PUT STRING are considered I/O statements in 
this connection). Thus, in the following 
example the second PUT statement is net 
allowed since it is 'nested* in the first 
one. 

PUT FILE (X) EDIT ( FUNCT ( PARI,, PAR2,_) 

(format list); 


FUNCT: PROCEDURE (PARA1,PARA2,_) 

RETURNS (CHAR(120)); 

DCL Y CHAR (120); 


PUT STRING (Y) EDIT (data list) (format 
list); 


RETURN (Y) ; 
END FUNCT; 


ON Statement 

If the condition of the ON statement is 
CONVERSION, 2NDFILE, or KEY, the action 
must not be the null statement. A prefix 
is not allowed in an CN statement. 

When a key error occurs in a WRITE sta¬ 
tement, the KEY condition is raised during 
execution of the current statement or the 
next I/O operation. 

The standard system action for FIXEDO- 
VERFLOW is comment and raise the ERROR 
condition. 

PAGESIZE_Cption 

The default condition is the size specified 
by the line count of the system. 
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P ar a me ters 

The number of distinct parameters of a pro¬ 
cedure must not exceed 12. The same para¬ 
meter appearing in a number of parameter 
lists of the same procedure (one PROCEDURE 
statement and several ENTRY statements,, 
each with parameter lists) is considered as 
only one parameter. 

Entry name parameters must be explicitly 
declared with the ENTRY attribute. 

PICTURE Attribute 

A PICTURE specification must have at least 
one PICTURE character other than M, V, K, 
or G. Arithmetic pictures must not have 
more than 32 characters excluding M, V, K, 
and G. PICTURE character strings must not 
have more than 255 characters. A PICTURE 
character preceded by the replication fac¬ 
tor k is considered as k PICTURE 
characters. 

PICTURE_Data 

Data declared with the PICTURE attribute 
must not have more than 15 digit-characters 
for numeric fixed-point data and 16 digit- 
characters for the mantissa and two for the 
exponent of numeric floating-point data. 

Pictures with the fill character * pre¬ 
ceded or followed by one of the characters 
+ , -, S, or $ cause these characters to be 
replaced by * when tne variable has a value 
of zero. Similarly, CR or DB are replaced 
by **. 

The picture character B is implemented 
as a conditional insertion character when 
used in conjunction with a drifting 
character. 

Procedure De fa ult Co nd ition 

The default condition for all procedures 
excluding built-in functions and library 
subroutines is IRREDUCIBLE. The default 
condition for all data is ABNORMAL in the 
DOS/TOS PL/I compiler. 

The PL/I Subset language does not have 
the attributes REDUCIBLE, IRREDUCIBLE, 
NORMAL, and ABNORMAL. Therefore, the user 
should familiarize himself with these items 
if he wishes to run programs written in the 
PL/I Subset language under CS control. For 
details on these attributes see the SRL 

publication IBM Sy st em/360,_Cgerating_Sys 2 

tern , PL/1(F)_L an guage Ref erence Manual, 

Form GC28-8201. 

PROCED(JRE_Statement 

The OPTIONS attribute permits an options 
list, the form of which is (MAIN [, 


ONSYSLCG]). The MAIN option specifies this 
procedure to be the initial procedure.. The 
ONSYSLCG option specifies that all output 
as a result of action taken due to an ON 
condition is to be printed cn the device 
assigned to SYSLCG. If both options are 
used, they must appear in the order given 
above. Procedures declared with the 
OPTIONS attribute cannot be called frcm 
other procedures. 

Put Stat em en t 

Refer to GE T S tat ement. 

Q ual ified N ame s 

If a qualified name is truncated on the 
right, the remaining part cf the qualified 
name must be unique. For example, in the 
structure 

DECLARE 1 ATR, 

2 Al , 

3 Bl, 

3 B2 , 

4 D1 , 

4 D2, 

2 A2 , 

3 Bl, 

4 D3 , 

4 D4, 

3 B3; 

the qualification ATR.Bl.D3 is not allowed 
since ATR.Bl is not unique. The correct 
qualification would be ATR.A2.Bl.D3. Ambi¬ 
guous names may not be flagged by the com¬ 
piler, and the code produced for sucn ambi¬ 
guous references is unpredictanle. 

Repet it ion Fact or 

A repetition factor must be an unsigned 
decimal integer. Its length is restricted 
to three digits. its value must not exceed 
255. The two examples belcw are in error: 

DECLARE A PICTURE '(OOIO)X'; 

DECLARE B PICTURE ' (260)X'j 

No embedded blanks are allowed in the 
repetition factor. E.g. DECLARE C PICTURE 
Ml 2)9'; is invalid. However, preceding 
or following blanks are allowed, as e.g. in 
DECLARE D PICTURE'( 4)X'; 

Sc al e Fact or 

Declaration of a scale factor is permitted 
only with decimal fixed-point data. It may 
range between 0 and 15 and must be 
unsigned. 

The total number of identifiers, constants, 
and delimiters (excluding insignificant 
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blanks and comments) contained in a state¬ 
ment must not exceed 230. 

The number of different identifiers and 
constants (excluding constants not con¬ 
tained in an expression) is limited to 90 
for each statement. 

Note; The above restrictions are applic¬ 
able only if the program is compiled on a 
16K system. Each additional 4K available 
to the compiler allows an equivalent 
increase. 


Structure_Declarations 

The maximum logical depth of a structure is 
8. The maximum level number is 255. The 
number of names in a structure is 
restricted to 62, if 10K are available to 
the compiler (766 if 46K are available). 
This includes the major-structure name, 
minor-structure name(s), and structure- 
element names. 

Structures (level numbe rs ) 

Any embedded blanks in level numbers will 
be deleted from the number string during 


compilation and no error message will be 
given. Level numbers may only be factored 
for el emen ts of a structure, i.e,, if fac¬ 
torization occurs in a structure declara¬ 
tion, the corresponding items are reco¬ 
gnized as structure elements. 


For example, in the declaration 

DC I 1 A, 

2 (B,C,D) , 

3(E,F, G) ; 

B, C, D, E, F and G will all be assumed to 
be elements of structure A, and will be 
assigned the logical level 2. 

In order to obtain the structure 

DCI 1 A, 

2 B, 

2 C, 

2 D, 

3 E» 

3 F, 

3 G; 

the declaration of D must be removed from 
the factorization brackets. 
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DATE...... 132 

Decimal 

data, precision of. 48 

fixed and flcat variables. 62 

fixed data. 131,56 

flcat data. 131,56 
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file, creation of.... 26 

files. 30 

organization..... 26 

INITIAL attribute. 132 

Initial Program Loader.»...,.. 9 

I/O device assignment. 10 

listing of.,. 11 

I/O errors. 90 

I/O processing... 30 
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KEYLENGTH option. 26,28 

KEYTO option. 28 
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area. 35 

constants (storage). 58 

control statements..... 31 

data. 58 
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information, cataloging of. 36 

processing. 24 

-program communication. 36 

statement examples.. 33,34 

variables. 62,58 
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Labeled tape files. 31,35 

LELTYP statement. 35 

Leaf. 80 

LEAVE option.»,. 34 

Level number (structures)..,. 135 

Librarian. 9,10 

control statements. 21,22,23 

Library maintenance (TCS).23 

maintenance runs...,. 22 

standard save area (LSSA). 53 

subroutines. 7 

LINK option (OPTION stmnt).. 13 
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program. 16 
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Link-editing 
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multiphase foreground programs. 83 
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Linking Assembler modules. 39,41 
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List-directed data transmission......... 49 
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Listings,, program........ 85 
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LCDIS macro.............. 34 
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ON statement. 133 
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Optimization. 15 

OPTION statement. 13,10,14 
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Options list. 134 
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independent. 27,32 
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example. 82 
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Parameters. 134 
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Phase. 80,7 

loading... 81 

names. 21, 80 

PHA.SE statement....... 17,8 2 

Physical device address. 10 

PICTURE attribute... 134 

data. 134 

specifications. 50 

Picture-specified 

character strings. 57 

data (storage). 57 

PICTURE variables. 6 2 

Pictures, use with stream-oriented 

data transmission. 49 

PL/I control routine.77 

Pointer variables. 58,62 

storage. 58 

Positioning of magnetic tapes. 35 

Precision of arithmetic constants. 59 

Precision of decimal data. 48 

Preformatting REGIONAL files. 25,26 

Prime data area..... 2 6 

Private relocatable library. 18,23 

Procedure 

contained in relocatable library.. 84 

default condition. 134 

module...,. .... 7,21 

PROCEDURE statement. 134 

PROCESS statement. 15 

Program expansion. 45 

Program segmentation. 45 

Program storage requirements. 79 

Programme^ logical units. 12 

Pseudc variables. 65,95 

PUT statement... 134 

Qualified names. 134 

Re-assigning logical units. 12 

Record... . 24 

types. 29 

Redefinition cf attributes. 48 

REDUCIBLE attribute. 134 

REGIONAL files. 24,25 

Register usage for linking. 39 

Relative track number. 33 

Relocatable library. 10, 21 

private. 18 

Remote format item. 132 

Remote FORMAT statement. 132 

Repetition factor. 134 

Repetitive specification..... 132 

Replication factor. 132 

REPLY option. 132,48 

RESET statement..... 13 

Restarting. 42 

Restrictions on PL/I language. 130 

Retention period. 32,33 

RETURN macro. 40 

Returning registers. 40 

Rewind operation. 35 

Root. 8 0 

Rounding on output. 49 

RSTRT statement. 42 

Save area. 41 

SAVE macro.. 4 0 

Saving registers. 3 9 


Scale factor.,. 134 

SE (DLBL statement).... 32 

Secondary entry points...,.. 84 

Seek time overlap.... 42 

Segmentation of programs. 45 

Self-relocating programs... 18 
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Sequential access method..,. 24,30 

Serial number................ 32 

SIZE overflow. 48 

SKIP.. 132 

Source 

module. 7 

program listing.... 8 5 
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text and object program....,. 78 

Split-cylinder technique. 28 
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Standard I/C assignments,. 11 

Statements. 134 

Statement format....,..... . 45,134 

Statement offset listing..... 87 

STATIC data storage........... 58 

Static storage........ 131 

Static storage area.... 74 

Storage layout. 7,9 

Storage mapping 

arrays. 60 
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structures. 61 

Storage requirements.,. 55,79 

STREAM files...... 130 
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Stringency level...... 61,62 
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declaration.. .... 135 

external. 133 
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maximum level number. 135 
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Subroutine storage requirements.... 65 
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Supervisor.. 9 
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SYSIPT.... 12 
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assignments for. 17 
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Tab control table. 48 

Tab positions. 48 

Tape 

drive control operation.. . 34 

file processing. 35 

labels. 31 

TIME. 132 

TLEL statement... 32, 33 

TP LAB statement. 32 

TRACING. 51 

Track. 28 

index. 2 6 

number of. 33 

Trailer label. 31 

Tree structure...,... 81 

UCL statement. 26 

UNALIGNEE. 130 

UNBUFFERED attribute.. 3 0 

Undefined records... 30 
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Unlabeled tape files.... 35 

UNSFEC..... 46 

UPSI byte.... 14,21 

UPSI statement.... 14„ 21 

User Program Switch Indicator............ 14 
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Variable blocked records.. 29 

Variable unblocked records. 30 

Version number......... 33 

VOL statement. 32 
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